Listing database servers on local network

[DKC]

Hi All,

Is there any way wherein I can get a list of database servers on my local
network.
Any help appreciated.
I am using VB.NET 2003

Thanks
DKC

[Cor Ligthert]

Hi DKC

Some sample code, (I think it is only for SQL servers however I do not know
it because the sample is not from me)

However maybe you can use it.

Cor

\\\
Private Function LoadSQLServerLi st() As Integer
Dim serverIndex As Integer
Dim sqlServers As SQLDMO.NameList
Dim sqlServer As Object
' Get a list of servers
sqlServers = New SQLDMO.Applicat ion().ListAvail ableSQLServers( )
' Iterate through the server names, and add it to the combobox
For Each sqlServer In sqlServers
If Not sqlServer Is Nothing Then
cboServers.Item s.Add(sqlServer )
End If
Next
' Send back the count of servers
LoadSQLServerLi st = cboServers.Item s.Count
'table list in a ser
Dim sqlServer As SQLDMO.SQLServe r
Dim sqlDB As Object
sqlServer = New SQLDMO.SQLServe r()
Try
' Connect to your database with userID and password
sqlServer.Conne ct(cboServers.T ext, txtUserID.Text, txtPassword.Tex t)
' Check for database names in the server
' This loop adds the database name to another combobox
For Each sqlDB In sqlServer.Datab ases
If Not sqlDB.Name Is Nothing Then
cboDatabases.It ems.Add(sqlDB.n ame)
End If
Next
Catch Exp As Exception
MsgBox(Exp.ToSt ring)
End Try
////

[DKC]

Thanks Cor,

Gave me enough input to proceed further.

Regards,
DKC
"Cor Ligthert" <no**********@p lanet.nl> wrote in message
news:OW******** *******@TK2MSFT NGP11.phx.gbl.. .

Hi DKC

Some sample code, (I think it is only for SQL servers however I do not know it because the sample is not from me)

However maybe you can use it.

Cor

\\\
Private Function LoadSQLServerLi st() As Integer
Dim serverIndex As Integer
Dim sqlServers As SQLDMO.NameList
Dim sqlServer As Object
' Get a list of servers
sqlServers = New SQLDMO.Applicat ion().ListAvail ableSQLServers( )
' Iterate through the server names, and add it to the combobox
For Each sqlServer In sqlServers
If Not sqlServer Is Nothing Then
cboServers.Item s.Add(sqlServer )
End If
Next
' Send back the count of servers
LoadSQLServerLi st = cboServers.Item s.Count
'table list in a ser
Dim sqlServer As SQLDMO.SQLServe r
Dim sqlDB As Object
sqlServer = New SQLDMO.SQLServe r()
Try
' Connect to your database with userID and password
sqlServer.Conne ct(cboServers.T ext, txtUserID.Text, txtPassword.Tex t)
' Check for database names in the server
' This loop adds the database name to another combobox
For Each sqlDB In sqlServer.Datab ases
If Not sqlDB.Name Is Nothing Then
cboDatabases.It ems.Add(sqlDB.n ame)
End If
Next
Catch Exp As Exception
MsgBox(Exp.ToSt ring)
End Try
////