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

我有一个Lotus Domino服务器,其上有大量奇怪的Domino数据库,安排在各种文件夹中.

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

实际上,您可以使用非常简单的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