当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。
記事そのもののリンクについてはご自由に行っていただいてよいです。

テクてく Lotus 技術者 Slack に参加しよう!

2008年7月29日火曜日

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 カスタマイズとセキュリティ強化 - 株式会社エフ

0 件のコメント: