Moin,moin,
erstmal ein frohes neues Jahr allen zusammen. Und schon die ersten Probleme: bei uns gab es vor einiger Zeit einen Admin-Wechsel. Dummerweise wurde bei der ein oder anderen Datenbank die ACL vorher nicht entsprechend geändert, so dass der neue Admin keinen Zugriff hat. Kein Problem hab ich mir gedacht und einen Agenten mit folgendem Code erstellt:
Sub Initialize
Dim work As New NotesUIWorkspace
Dim s As New NotesSession
Dim db As NotesDatabase
Dim QuellDB As NotesDatabase
Dim Verz As NotesDbDirectory
Dim Acl As NotesACL
Dim Entry As NotesACLEntry
Dim Datenbanken() As Variant
Dim Auswahl As Variant
Set db = s.CurrentDatabase
Set Verz = s.GetDbDirectory("Baghira")
Set QuellDb = Verz.GetFirstDatabase(DATABASE)
i = 0
While Not (QuellDb Is Nothing)
Redim Preserve Datenbanken(i) As Variant
Datenbanken(i) = QuellDb.FilePath
Set QuellDB = Verz.GetNextDatabase
i = i + 1
Wend
Auswahl = work.Prompt(4,"Baghira","Datenbank wählen",,Datenbanken)
Set Quelldb = s.GetDatabase("Baghira",Auswahl,False)
Set Acl = QuellDB.ACL
Set entry = New NotesACLEntry(acl,"LocalDomainAdmins",6)
entry.UserType = 4
Call acl.Save
Msgbox "Die Personengruppe LocalDomainAdmins wurde der Datenbank als Manager hinzugefügt"
End Sub
Den Agenten habe ich mit der Server-ID signieren lassen, da dieser ja überall Managerrechte hat. Wenn man den Agenten jetzt ausführt, kommt trotzdem der Hinweis, dass man keinen Zugriff hat
Ich dachte immer die Server dürfen alles
Oder dauert es evtl. ne Weile bis der Agent wirklich weiß, dass er ja jetzt mit dem Server signiert ist?
Gruß
Demian