例: NotesACLEntry class

次のスクリプトは New を使用して、Shelly McPhail にデータベースの [編集者] のアクセス権を与えます。

Dim db As New NotesDatabase _
( "Quito", "data¥discuss.nsf" )
Dim acl As NotesACL
Set acl = db.ACL
Dim person As New NotesACLEntry _
( acl, "Shelly McPhail/East/ACME", ACLLEVEL_EDITOR )
Call acl.Save

次のスクリプトは New を使用して、Bill Ehrhardt にデータベースの [設計者] のアクセス権を与えます。また、[Project Leader] という新しいロールを作成し、Bill に対してそのロールを有効にします。

Dim db As New NotesDatabase _
( "Quito", "data¥discuss.nsf" )
Dim acl As NotesACL
Set acl = db.ACL
Call acl.AddRole( "Project Leader" )
Dim leader As New NotesACLEntry _
( acl, "Bill Ehrhardt/East/ACME", ACLLEVEL_DESIGNER )
Call leader.EnableRole( "Project Leader" )
Call acl.Save

次のスクリプトは New を使用して、現在のデータベースに「Terminations」グループを追加します。また、このグループには［なし］のアクセス権を割り当てます。

Dim session As New NotesSession
Dim db As NotesDatabase
Dim acl As NotesACL
Dim entry As NotesACLEntry
Set db = session.CurrentDatabase
If Not ( db.IsOpen ) Then
  Call db.Open( "", "" )
End If
Set acl = db.ACL
Set entry = New NotesACLEntry _
( acl, "Terminations", ACLLEVEL_NOACCESS )
Call acl.Save