Xpages 读取和捕获ACL

我被要求编写一个应用程序，允许用户选择数据库，并让它读取ACL（包括角色）并将其存储到文档中。我无法找到任何方法让您扫描ACL并捕获这样的内容

您可以通过Java中的数据库类访问数据库的ACL。有一个

getAcl（）

方法用于此。拥有ACL后，就可以遍历所有条目

---

每个Acentry对象都有获取访问级别、角色等的方法。

您可以通过Java中的数据库类访问数据库的ACL。有一个

getAcl（）

方法用于此。拥有ACL后，就可以遍历所有条目

---

每个Acentry对象都有获取访问级别、角色等的方法。

以下是向您发送此信息的代码： 服务器：XYZ 文件名：e_drev\abc.nsf 副本ID:41256E1B0019C95C 未设置强制一致ACL 管理服务器：无 ACL入口访问级别角色用户类型可以删除可以创建 -默认-管理器访问[配置]未指定是是

将会话设置为新便笺会话 Dim nam As NotesName
Dim db As NotesDatabase Dim maildoc As notes文档
将acl设置为NotesACL 将条目变暗为notescalentry Dim entryName作为字符串 将级别设置为字符串 将角色设置为字符串 按字符串键入 将rti设置为备注RichTextItem Dim rtnav As NotesRichTextNavigator 将rtt尺寸标注为注释RichTextTable

Set nam = session.CreateName(session.UserName)

Dim workspace As New NotesUIWorkspace
Dim askme As Variant

askme = workspace.Prompt("13","Mail me ACL and DB-info", "Select database to report on: ")
Set db = session.GetDatabase(askme(0), askme(1))
Set acl = db.ACL

Dim richStyle As NotesRichTextStyle 
Set richStyle = session.CreateRichTextStyle
richStyle.NotesFont = FONT_HELV
richStyle.FontSize = 9
richStyle.Bold = True

Dim plainStyle As NotesRichTextStyle    
Set plainStyle = session.CreateRichTextStyle
plainStyle.Bold = False

Set maildoc = New NotesDocument( db )

Set rti = maildoc.CreateRichTextItem("body")
Call rti.AppendText("Server: " + db.Server + Chr(13))
Call rti.AppendText("Filename: " + db.FilePath + Chr(13))
Call rti.AppendText("Replica-ID: " + db.ReplicaID + Chr(13))

If acl.UniformAccess Then
    Call rti.AppendText("Enforce consistent ACL is set" + Chr(13))
Else 
    Call rti.AppendText("Enforce consistent ACL is NOT set" + Chr(13))
End If

If acl.AdministrationServer <> "" Then
    Call rti.AppendText("Administration server: " + acl.AdministrationServer + Chr(13))
Else
    Call rti.AppendText("Administration server: None" + Chr(13))
End If

Call rti.AppendTable(1, 6)

Set rtnav = rti.CreateNavigator     
Call rtnav.FindFirstElement(RTELEM_TYPE_TABLE)
Set rtt = rtnav.GetElement  

Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL)  

---

以下是向您发送此信息的代码： 服务器：XYZ 文件名：e_drev\abc.nsf 副本ID:41256E1B0019C95C 未设置强制一致ACL 管理服务器：无 ACL入口访问级别角色用户类型可以删除可以创建 -默认-管理器访问[配置]未指定是是

将会话设置为新便笺会话 Dim nam As NotesName
Dim db As NotesDatabase Dim maildoc As notes文档
将acl设置为NotesACL 将条目变暗为notescalentry Dim entryName作为字符串 将级别设置为字符串 将角色设置为字符串 按字符串键入 将rti设置为备注RichTextItem Dim rtnav As NotesRichTextNavigator 将rtt尺寸标注为注释RichTextTable

Set nam = session.CreateName(session.UserName)

Dim workspace As New NotesUIWorkspace
Dim askme As Variant

askme = workspace.Prompt("13","Mail me ACL and DB-info", "Select database to report on: ")
Set db = session.GetDatabase(askme(0), askme(1))
Set acl = db.ACL

Dim richStyle As NotesRichTextStyle 
Set richStyle = session.CreateRichTextStyle
richStyle.NotesFont = FONT_HELV
richStyle.FontSize = 9
richStyle.Bold = True

Dim plainStyle As NotesRichTextStyle    
Set plainStyle = session.CreateRichTextStyle
plainStyle.Bold = False

Set maildoc = New NotesDocument( db )

Set rti = maildoc.CreateRichTextItem("body")
Call rti.AppendText("Server: " + db.Server + Chr(13))
Call rti.AppendText("Filename: " + db.FilePath + Chr(13))
Call rti.AppendText("Replica-ID: " + db.ReplicaID + Chr(13))

If acl.UniformAccess Then
    Call rti.AppendText("Enforce consistent ACL is set" + Chr(13))
Else 
    Call rti.AppendText("Enforce consistent ACL is NOT set" + Chr(13))
End If

If acl.AdministrationServer <> "" Then
    Call rti.AppendText("Administration server: " + acl.AdministrationServer + Chr(13))
Else
    Call rti.AppendText("Administration server: None" + Chr(13))
End If

Call rti.AppendTable(1, 6)

Set rtnav = rti.CreateNavigator     
Call rtnav.FindFirstElement(RTELEM_TYPE_TABLE)
Set rtt = rtnav.GetElement  

Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL)  

---

非常感谢。虽然我对电子邮件和表格不感兴趣，因为它必须位于XPage上的某个字段中，这将为我提供一些可以开始查看的内容谢谢。虽然我对电子邮件和表格不感兴趣，因为它必须位于XPage上的某个字段中，该字段将为我提供一些可以查看的内容，以便启动catalog.nsf中已经包含了所有acl信息。我完全忘记了该数据库。谢谢catalog.nsf中已经包含了所有acl信息。我完全忘记了那个数据库。非常感谢。