例: IsExtendedAccess property (NotesACL - LotusScript®)

次のエージェントは、ユーザーの指示で UniformAccess を無効にし、現在のデータベースの IsExtendedAccess を切り替えます。

%INCLUDE "lsconst.lss"
Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim acl As NotesACL
  Set db = session.CurrentDatabase
  Set acl = db.ACL
  REM Toggle "Enable Extended Access"
  If acl.IsExtendedAccess Then
    acl.IsExtendedAccess = False
    Print "Disabling extended access"
    If Messagebox("Do you want to disable consistent ACL also", _
    MB_YESNO + MB_ICONQUESTION, "Consistent ACL") = IDYES Then
      acl.UniformAccess = False
      Print "Disabling consistent ACL"
    End If
  Else
    acl.IsExtendedAccess = True
    Print "Enabling extended access (and consistent ACL if need be)"
  End If
  Call acl.Save()
End Sub