louts得到服务器所有数据库（所有代理）

Sub Click(Source As Button)

Dim ss As New NotesSession
Dim curdb As NotesDatabase
Dim gdb As NotesDatabase
Set curdb= ss.CurrentDatabase
Dim directory As New NotesDbDirectory(curdb.Server)
Dim db As NotesDatabase
Set db=directory.GetFirstDatabase(DATABASE)
Dim dbpath As String
Dim dbname As String
Dim half As String
Dim csum As String
csum = ""
Dim i As Integer
Dim n As Integer
i = 0 
While Not db Is Nothing
n = n + 1
Print  n  & "个"
dbpath =  Cstr(db.FilePath)
dbname = Cstr(db.FileName)
If Instr(dbpath,"weboa") Then
'找到库中所有代理
i = i + 1
Print i
Set gdb = ss.GetDatabase(curdb.Server,dbpath)
'Set gdb = ss.CurrentDatabase
If Isarray(gdb.Agents) Then
Forall a In gdb.Agents
half = Cstr(a.OnBehalfOf)
If Instr(half,"admin/HDPI") Then
csum = dbname + ":" + a.name + ","
Print csum
End If
End Forall
End If
End If
Set db=directory.GetNextDatabase()
Wend
Msgbox csum
%REM
Dim session As New NotesSession
Dim agent As NotesAgent
Dim db As NotesDatabase
Set db = session.CurrentDatabase
If Isarray(db.Agents) Then
Forall a In db.Agents
Msgbox(a.name)
End Forall
End If
%END REM
End Sub