LOTUSSCRIPT /COM/OLE のクラス
例:GrantAccess メソッド
1. 次のスクリプトは、グループ [Sales Supervisors] の全員にデータベース PROFITS.NSF の [作成者] のアクセス権を与えます。
Dim db As New NotesDatabase( "Sydney", "profits.nsf" )
Call db.GrantAccess( "Sales Supervisors", ACLLEVEL_AUTHOR )
2. 次のスクリプトは、ローカルドメイン内のすべてのサーバーに現在のデータベースの [設計者] のアクセス権を与え、他のドメインのすべてのサーバーには [読者] のアクセス権を与えます。
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 )
3. 次のスクリプトでは 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
関連項目
GrantAccess メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集