LOTUSSCRIPT /COM/OLE のクラス
例:NotesACLEntry クラス
1 次のスクリプトは 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
2 次のスクリプトは 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
3 次のスクリプトは 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
関連項目
NotesACLEntry クラス
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
?
ヘルプの使い方
すべてのヘルプ項目
用語集