例: GetFirstEntry method (NotesACL - LotusScript®)

次のスクリプトは、Kampala サーバーのデータベース hello.nsf の ACL の第 1 番目のエントリを取得します。

Dim db As New NotesDatabase( "Kampala", "hello.nsf" )
Dim acl As NotesACL
Dim firstEntry As NotesACLEntry
Set acl = db.ACL
Set firstEntry = acl.GetFirstEntry