指定したDBのロール一覧を表示する

Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim uiws    As New NotesUIWorkspace
	Dim ret     As     Variant
	Dim db      As     NotesDatabase
	Dim acl     As     NotesACL
	Dim entry   As     NotesACLEntry
	Dim i       As     Integer
	Dim sbj     As     String
	
	'PROMPT_CHOOSEDATABASEは、リテラル値で13
	ret = uiws.Prompt( 13, "", "" )
	If Isempty( ret ) Then
		Msgbox "データベースは選択されていません。", 0, "データベースの選択"
		Exit Sub
	End If
	
     'DBのACLの取得
	Set db = session.GetDatabase( ret(0), ret(1), False )
	If db Is Nothing Then
		Msgbox "データベースがないか、またはアクセス権がありません。", 0 + 16, "データベースの選択"
		Exit Sub
	End If
	Set acl   = db.ACL
	
	sbj = ""
	i   = 0
	
     'ACLのロールを取り出す
	Forall x In acl.Roles
		i = i + 1
		sbj = sbj & Cstr( i ) & ". " & x & Chr$(10)
	End Forall
	
	Msgbox sbj, 0, ret(2) & "のロール一覧"
End Sub

Select XSnippet to copy to Clipboard