例: GetNextEntry method (NotesACL - LotusScript®)

次のスクリプトは、hello.nsf の ACL の第 2 番目のエントリを取得します。

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