次のスクリプトは ACL に Mara Smith のエントリを作成し、LotusScript® エージェントまたは JavaScript エージェントの権限を持った [読者] のアクセス権を与えます。
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 = New NotesACLEntry(acl,_
"Mara Smith/East/ACME", ACLLEVEL_READER)
entry.CanCreateLSOrJavaAgent = True
Call acl.Save