例: IsAdminNames property (NotesACL - LotusScript®)

次のエージェントは、現在のデータベースの IsAdminNames を切り替えます。

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