DBの保有ロールを取得する

指定したユーザが、ノーツDB内でどのロールを保有しているのかをチェックするメソッド。
ACLの情報をチェックするので、グループに所属している場合でも認識できる。
@関数で言えば、@UserRolesに相当する。

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim sbj As Variant
    Dim ret As String
    
    '自DBとそのACLの取得
    Set db = session.CurrentDatabase
    sbj = db.QueryAccessRoles( "ユーザ名" )
    
    ret = ""
    Forall x In sbj
        If ret = "" Then
            ret = x + ","
        Else
            ret = ret + x + ","
        End If
    End Forall
    
    Messagebox ret, 0, "保有ロールの一覧"
End Sub











Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ



コメント