Instancias de sql

Jilia wrote:

Hola como puedo ver desde mi app de win todas la
instanceas de en la red?
Quiero hacer mas omenos los que query analizer que me las
ensenas y pongo el user y pass despues.



Gracias!!!!

En el Registry puedes ver los servidores a los que habitualmente te
conectas con el query analizer. Están en:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSSQLServer\Client\SuperSocketNetLib\LastConnect

Me imagino que usando las librerías de red de SQL debe ser posible hacer
un broadcast de descubrimiento de servidores, pero no tengo la menor
idea de cómo hacerlo.

También es posible que en el Active Directory haya alguna información de
qué servidores tienen servicio de SQL, pero igual... habría que
investigar un poco.

Saludos,


Yván

Saludos,

Te recomiendo que le eches una pequeña busqueda a los mensajes anteriores
del foro, puesto que muchas de las consultas que se hacen ya se resolvieron
antes. Como esta precisamente de octubre (no recuerdo el dia), pero ahi
inclui el siguiente codigo que te recupera la lista de los servidores SQL en
la red.


Imports System
Imports System.Reflection
Module Module1
Sub Main()
' 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())
Next
End Sub
End Module



Saludos
Pedro Luna, [MVP VB.NET]
Gye, Ecu