LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsAdminNames property
This agent toggles IsAdminNames for the current database.

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