例: AdministrationServer property (NotesACL - LotusScript®)

次のエージェントは、現在のデータベースに設定されたシステム管理サーバーを表示します。

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 acl.AdministrationServer,, _
    "Administration server"
  Else
    Messagebox "No administration server",, _
    "Administration server"
  End If
End Sub

次のビューアクションは、現在のデータベースに設定されたシステム管理サーバーを切り替えます。

Sub Click(Source As Button)
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim acl As NotesACL
  Set db = session.CurrentDatabase
  Set acl = db.ACL
  If acl.AdministrationServer = "Software_Server" Then
    acl.AdministrationServer = "Company_Server"
  Else
    acl.AdministrationServer = "Software_Server"
  End If
  Call acl.Save()
End Sub