怎么遍历出所有nsf数据库中的一个用户啊

如何遍历出所有nsf数据库中的一个用户啊？
需求是遍历 lotus服务器上 所有nsf数据库
查找文档中包含 administrator/bizks 这个账号的所有文档
并且输入为txt
已经实现的了遍历服务器上所有的数据库 还有输出txt
代码如下:
Sub Initialize
Dim pathName As String, fileName As String
Dim fileNum As Integer

fileNum% = Freefile()
fileName$ = "D:\DBs.txt"

Open fileName$ For Output As fileNum%

pathName$ = "D:\IBM\Lotus\Notes\Data\*.nsf"
fileName$ = Dir$(pathName$, 0)
Do While fileName$ <> ""
Print fileName$
'Search begin ...

'Search end...

Write #fileNum%, fileName$
fileName$ = Dir$()
Loop
Close fileNum%
End Sub

有哪位高手 能帮我补全代码啊？跪谢！
------解决方案--------------------
很明显这样不行。通过获得文件系统的nsf数据库，查询数据库文档，这个根本放访问不了数据。
可以这样的思路来做：
1:获得服务器上所有nsf的数据列表--数组；
2：循环每一个nsf数据库
3：在每一个数据库中利用数据库索引搜索：db.FTSearch，查找包含“ administrator/bizks ”的文档documentCollection
4:循环DocumentCollection下面的每一分文档。