別のDBにロールを作成する

指定したNotesDBにロールを作成して、登録してあるACLエントリにそのロールを付与する方法です。

当然のことながら、NotesDBに"管理者"権限があることが必要になります。


Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim acl As NotesACL
    Dim entry As NotesACLEntry
    
    On Error Goto ErrProc
    
    'ACL情報を操作するDBを取得する
    Set db = New NotesDatabase( session.CurrentDatabase.Server, "データベースファイル名" )
    Set acl = db.ACL
    
    'ACLにロールを作成する
    Call acl.AddRole( "ロール名" )
    
    'エントリにロールを付与する
    Set entry = acl.GetEntry( "エントリ名" )
    Call entry.EnableRole( "ロール名" )
    
    'ACL情報を保存する
    Call acl.Save
    Exit Sub
    
ErrProc:
    Msgbox "エラー発生行数:" + Cstr(Erl) + Chr$(10) + "エラーメッセージ:[No." + Cstr(Err) + "] " + Error(Err)
    Exit Sub
End Sub 


コメント