Conexión con servidor sql server

Miao..
Comprate un libro.

Dale copy y paste



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})

' Console.WriteLine(oSqlServer.ToString())
Me.cmbSqlServer.Items.Add(oSqlServer.ToString
())

Next
If Me.cmbSqlServer.Items.Count <> 0 Then
Me.cmbSqlServer.SelectedIndex = 0
Me.btnCnSql.Enabled = True

End If

Ups me olvide del Asunto.

Hola a todos,

Tengo una duda, hay alguna manera de explorar mi

red corporativa y

averiguar que servidores tienen un SQL server instalado?

Si hay alguna forma, me podrian decir como puedo

hacerlo.

Muchas gracias por todo.




.