LS中针对存取控制权限acl的相关操作和判读（一）

 

Sub Initialize()
 On Error GoTo a
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.Currentdatabase
  
  '定义当前数据库的ACL
  Dim acl As NotesACL
  Dim entry As NotesACLEntry
  Set acl = db.ACL   
  Set entry = acl.GetFirstEntry
  
  '循环查找当前数据库中的entry（就是Default那一栏的都是entry）
  While Not (entry Is Nothing)
   '如果找到的其中一个entry的角色是“[管理员]”的则执行：
   If (entry.isroleenabled("[管理员]")) Then

    '找到角色为管理员的用户然后进行相关的操作
    
   End If
   Set entry = acl.getnextentry(entry)
  Wend

 
 Exit Sub
a:
 MsgBox "错误在代理agent_acl的第" & Erl & "行，描述：---" & Error
End Sub