例: InternetLevel property (NotesACL - LotusScript®)

次のスクリプトは現在のデータベースに対する最大のインターネットアクセスレベルを取得し、それをメッセージで表示します。アクセスレベルが [管理者] であれば、[設計者] に変更します。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Set db = session.CurrentDatabase
Set acl = db.ACL
Messagebox acl.InternetLevel
If acl.InternetLevel = ACLLEVEL_MANAGER Then
  acl.InternetLevel = ACLLEVEL_DESIGNER
End If
Call acl.Save