Die ACL einer Datenbank per Server-Agent manipulieren in Lotus Notes/Domino

Wenn bei einer Serverdatenbank nur der Server als MANAGER eingetragen ist, kann die Datenbank nicht mehr geöffnet werden. Man kann über einen periodischen LotusScript-Agenten, der mit der Server-ID signiert und aktiviert ist, die ACL verändern:

Sub Initialize
Dim session As New NotesSession
Dim db As New NotesDatabase("SERVER_NAME/ORG", "Pfad/Datenbank.nsf")
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set acl = db.ACL
Dim person As New NotesACLEntry ( acl, "Vorname Nachname/ORG", ACLLEVEL_MANAGER )
Call acl.Save
End Sub