例: Roles property (NotesACLEntry - LotusScript®)

次のスクリプトは、Bob Kidder に対して有効になっているすべてのロールを表示します。例えば、[Project Leader] と [Writer] のように表示します。

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( "Bob Kidder/East/ACME" )
Forall r In entry.Roles
  Messagebox( r )
End Forall