lotus-notes - 如何导出驻留在给定 Domino 服务器上的数据库列表？

Question

我有一个 Lotus Domino 服务器，上面有数量惊人的 Domino 数据库，排列在不同的文件夹中。

是否有某种方法可以以某种电子表格格式导出所有这些数据库的列表，以及它们的标题和创建者姓名？我有 Domino Admin 和 Domino Designer 软件，我拥有或可以获得我需要的任何访问权限。

Answer 1

实际上，您可以使用一个非常简单的 Lotuscript 代理连接到服务器并使用 NotesDbDirectory 类遍历服务器上的所有数据库。这是一些代码，对 6.5 帮助文件中的内容略有修改 - 这会将所有数据库的标题和路径转储到 csv 文件。注意:GetFirstDatabase 方法的一个参数让您指定要扫描的服务器上的哪些对象 - 1247 是“数据库”的常量 - 基本上，所有 NSF 文件。还有其他常量仅用于查找模板(NTF)，仅用于启用复制的数据库等。

Sub Initialize
    Dim db As NotesDatabase
    Dim f As Integer
    f = Freefile
    Open "c:\dbExport.csv" For Output As #f

    Dim dbdir As New NotesDbDirectory("")  ' opens LOCAL - put a server name here
    Set db = dbdir.GetFirstDatabase(1247)  ' all databases - NSF, NSG and NSH (no templates)
    While Not(db Is Nothing)
        Print #f, """" + db.Title + """, """ + db.FileName + """"
        Set db = dbdir.GetNextDatabase
    Wend
    Close #f
End Sub