次のスクリプトは、Shelly McPhail にデータベースの [編集者] のアクセス権を与えます。
Dim db As New NotesDatabase( "Warsaw", "data¥discuss.nsf" )
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set acl = db.ACL
Set entry = acl.CreateACLEntry _
( "Shelly McPhail/East/ACME", ACLLEVEL_EDITOR )
Call acl.Save