Ich quäle mich gerade mit einem Serveragenten, welcher in die ACL aller DB's einen Eintrag "Administrators" mit Manager-Rechten generieren soll.
Bei manchen Datenbanken kommt der Fehler "Database ServerBLNTR5\dbname.nsf has not been opened yet"; wenn ich mir das im Debugger anschaue, dann sehe ich bei der betreffenden Datenbank im Filepath: "ServerBLNTR5\dbname.nsf"! Es handelt sich dabei, soweit ich bisher feststellen konnte, um Datenbanken die zum Betrieb des Servers erforderlich sind: admin4.nsf,agentlog.nsf,busytime.nsf.....
In diese DB's will ich ja gar nicht unbedingt was eintragen, aber woher kommt der falsche Filepath und wie kann ich das umgehen?
Dieses "BLNTR5" ist der Domänenname und die betroffenen DB's liegen natürlich im Data-Verzeichnis.
Hier mal der Code:
Dim session As New notessession
Dim cnt As Double
On Error Goto goon
cnt = 0
Set directory = New NotesDbDirectory( "" )
Set db=directory.getfirstdatabase(TEMPLATE_CANDIDATE)
While Not (db Is Nothing)
Call db.Open( "", "" )
cnt = cnt + 1
Call db.GrantAccess( "Administrators",ACLLEVEL_MANAGER )
goon: Set db = directory.getnextdatabase
Print cnt
Wend
Wo liegt der Fehler?