得到数据库存取控制列表中某个角色的人员代码,Domino代码库,德仔网

代码语言

代码分类

【Domino】得到数据库存取控制列表中某个角色的人员

作者: / 发布于2014/7/25/ 984


	Function GetRoleMembers(rolename As String) As String
	Dim session As New NotesSession
	Dim db As NotesDatabase
	Dim acl As NotesACL
	Dim entry As NotesACLEntry
	Dim stringmembers As String
	Dim foundRole As Variant
	Dim count As Integer
	Set db = session.CurrentDatabase
	Set acl = db.ACL
	foundRole = False
	' check to see if the role exists in the database
	Forall r In acl.Roles
	 If ( r = "[" & roleName & "]" ) Then
	 foundRole = True
	 Exit Forall
	 End If
	End Forall
	If Not foundRole Then
	 Messagebox _
	 ( "Sorry, " & roleName & " is not a role" )
	' if the role exists, check each acl entry to see if role
	' is enabled for entry
	' if so, add entry name to the People field
	' on the current document,
	' followed by a semicolon, the multi-value separator
	 'Evaluate({(@Name([Abbreviate];entry.Name))}),Evaluate("(@Text(@Name([Abbreviate];entry.Name)))")
	Else
	 Set entry = acl.GetFirstEntry
	 While Not ( entry Is Nothing )
	 If entry.IsRoleEnabled( roleName ) Then
	 If count=0 Then
	 stringmembers =stringmembers + entry.Name
	 Else
	 stringmembers=stringmembers+","+entry.Name
	 End If
	 count=count+1
	 End If
	 Set entry = acl.GetNextEntry( entry )
	 Wend
	End If
	' refresh current document so People field displays nicely
	' Msgbox stringmembers
	GetRolemembers = stringmembers
	End Function

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

同语言下

可能有用的

贡献的其它代码Label