LOTUSSCRIPT /COM/OLE のクラス

例:IsExtendedAccess プロパティ
次のエージェントは、ユーザーの指示で 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

関連項目