例: GrantAccess method

次のスクリプトは、グループ [Sales Supervisors] の全員にデータベース PROFITS.NSF の [作成者] のアクセス権を与えます。
```
Dim db As New NotesDatabase( "Sydney", "profits.nsf")
Call db.GrantAccess("Sales Supervisors", ACLLEVEL_AUTHOR)
```
次のスクリプトは、ローカルドメイン内のすべてのサーバーに現在のデータベースの [設計者] のアクセス権を与え、他のドメインのすべてのサーバーには [読者] のアクセス権を与えます。
```
Dim session As New NotesSession
Dim db As NotesDatabase
Set db = session.CurrentDatabase
Call db.GrantAccess( "LocalDomainServers", _
ACLLEVEL_DESIGNER )
Call db.GrantAccess( "OtherDomainServers", _
ACLLEVEL_READER )
```
次のスクリプトでは Will Kates がデータベースにアクセスできないようにします。データベースのデフォルトのアクセス権が［なし] のとき、スクリプトは Will をデフォルトグループの一員にしてアクセス権を無効にします。それ以外の場合 (例えば、デフォルトが［読者］などの場合) は、Will に［なし］のアクセス権を与えます。
```
Dim db As New NotesDatabase( "Sydney","profits.nsf")
If (db.QueryAccess("-Default-")=ACLLEVEL_NOACCESS) _  
Then
  Call db.RevokeAccess("Will Kates")
Else
  Call db.GrantAccess("Will Kates",ACLLEVEL_NOACCESS )
End If
```