例: Level property (NotesACLEntry - LotusScript®)

次の例は、データベースの第 1 番目のエントリについてのメッセージを表示します。db というエントリは NotesDatabase オブジェクトです。
```
Set acl = db.ACL
Set entry = acl.GetFirstEntry
If ( entry.Level = ACLLEVEL_READER ) Then
  Messagebox( "The first entry has Reader access." )
End If
```

次のスクリプトは現在のデータベースの ACL にあるサーバー Brussels のエントリを取得し、そのアクセスレベルを［設計者］に変更します。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = session.CurrentDatabase
Set acl = db.ACL
Set entry = acl.GetEntry( "Brussels/Europe/ACME" )
If Not ( entry Is Nothing ) Then
  entry.Level = ACLLEVEL_DESIGNER
  Call acl.Save
End If