LOTUSSCRIPT/COM/OLE CLASSES
Sub Initialize Dim session As New NotesSession Dim db As NotesDatabase Dim acl As NotesACL Set db = session.CurrentDatabase Set acl = db.ACL If acl.AdministrationServer = "" Then Messagebox "No admin server",, "Can't change" Exit Sub End If If acl.IsAdminNames Then acl.IsAdminNames= False Else acl.IsAdminNames= True End If Call acl.Save Messagebox "IsAdminNames changed",, acl.IsAdminNames End Sub
See Also