例: NameObject property (NotesACLEntry - LotusScript®)

次の Visual Basic コードは、各 ACL エントリの共通名をリストボックスに追加します。

Private Sub ACLEntryName_Click()
Dim s As New NotesSession
s.Initialize
Dim dir As NotesDbDirectory
Dim db As NotesDatabase
Dim acl As NotesACL
Dim acle As NotesACLEntry
Set dir = s.GetDbDirectory("")
Set db = dir.OpenDatabase("Web test")
Set acl = db.acl
Set acle = acl.GetFirstEntry
While Not (acle Is Nothing)
  List1.AddItem (acle.NameObject.Common)
  Set acle = acl.GetNextEntry(acle)
Wend
End Sub