How can I export a list of databases resident on a given Domino server?

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