Ver todos los servidores con sql

Me.cmbSqlServer.Items.Clear()

' Invocamos al método ListAvailableSQLServers()
de una

' instancia de SQLDMO.Application para obtener la
lista de nombres

Dim oSqlDmoAppType As Type =
Type.GetTypeFromProgID("SQLDMO.Application")

Dim oSqlDmoApp As Object =
Activator.CreateInstance(oSqlDmoAppType)

Dim oSqlDmoListNames As Object =
oSqlDmoAppType.InvokeMember("ListAvailableSQLServers",
Reflection.BindingFlags.InvokeMethod, Nothing,
oSqlDmoApp, New Object() {})



' Obtenemos el número de servidores disponibles

Dim oSqlDmoListNamesType As Type =
oSqlDmoListNames.GetType()

Dim nNumElementos As Integer

nNumElementos = CType
(oSqlDmoListNamesType.InvokeMember("Count",
Reflection.BindingFlags.GetProperty, Nothing,
oSqlDmoListNames, New Object() {}), Integer)



' Obtenemos cada uno de los nombres de los
servidores SQL

Dim i As Integer

For i = 1 To nNumElementos

Dim oSqlServer As Object

oSqlServer = oSqlDmoListNamesType.InvokeMember
("Item", Reflection.BindingFlags.InvokeMethod, Nothing,
oSqlDmoListNames, New Object() {i})


Me.cmbSqlServer.Items.Add(oSqlServer.ToString
())

Next

'Miao...
'Comprate un libro.

COmo puedo desde mi app ver los servidores que tengas

sql/

.