Database Listing

Hi

My Application requires the ability to select a server and database, and then log on.

I am able to populate a combo box with server names using SQLDMO:

Dim oApp As SQLDMO.Application
Dim oNames As SQLDMO.NameList

oApp = New SQLDMO.Application()
oNames = oApp.ListAvailableSQLServers

Dim i As Integer
For i = 1 To oNames.Count
Me.cboServerName.Items.Add(oNames.Item(i))
Next

After Selecting the server I would like to select the database on that server.

To Polulate the Database combo I use:

Dim oServer As SQLDMO.SQLServer
oServer = New SQLDMO.SQLServer()

oServer.LoginSecure = False
oServer.Connect(Me.cboServerName.SelectedItem)

Dim i As Integer
For i = 1 To oServer.Databases.Count
Me.cboDatabase.Items.Add(oServer.Databases.Item(i).Name)
Next
Me.cboDatabase.Refresh()

The PROBLEM is, I can get the database listing from a server I have domain Authentication on, but any that requires username and password to be enetered I cannot.

Is it at all possible to list the databases without knowing the password? I would like to use SQLDMO still.

Thanks,