LOTUSSCRIPT/COM/OLE CLASSES

Examples: IsAdminReaderAuthor property
This agent toggles IsAdminReaderAuthor 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.IsAdminReaderAuthor Then
   acl.IsAdminReaderAuthor = False
 Else
   acl.IsAdminReaderAuthor = True
 End If
 Call acl.Save
 Messagebox "IsAdminReaderAuthor changed",, _
 acl.IsAdminReaderAuthor
End Sub

See Also