LOTUSSCRIPT /COM/OLE のクラス

例:IsAdminNames プロパティ
次のエージェントは、現在のデータベースの 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

関連項目