Examples: IsAdminReaderAuthor property (NotesACL - LotusScript®)

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