例: NotesACL class

次のスクリプトはサーバー Maputo のデータベースの ACL にアクセスし、GetFirstEntry メソッドを使用して ACL の第 1 番目のエントリを検索します。
```
Dim db As New NotesDatabase("Maputo", "notefile¥none.nsf")
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set acl = db.ACL
Set entry = acl.GetFirstEntry
```

次のスクリプトは現在のデータベースの ACL にアクセスし、GetEntry メソッドを使用して ACL で Dyetra Jones を検索します。

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( "Dyetra Jones" )