Visual Basic - Nombre del Servidor Sql Server

Hola

Necesito saber cómo es posible conocer el nombres del servidor Sql Server que existe en la red, y en caso que hubiesen más, obtener la lista de ellos.

Agradezco su atención

Jose

Esta rutina esta en www.ambsoftware.com

Lista los servidores Sql disponibles

Mediante la siguiente rutina, podremos conocer los diferentes servidores Sql disponibles en una red.

Public Function AvailableSQLServers() As String()
Dim sServers() As String
Dim iCtr As Integer
sServers = AvailableSQLServers
If sServers(0) = "" Then
MsgBox "No existen servidores SQL disponibles"
Else
For iCtr = 0 To UBound(sServers)
Debug.Print sServers(iCtr)
Next
End If
Dim oServer As New SQLDMO.Application
Dim oNameList As SQLDMO.NameList
Dim iElement As Integer
Dim sAns() As String
Dim lCtr As Long, lCount As Long
On Error GoTo ErrorHandler
ReDim sAns(0) As String
Set oNameList = oServer.ListAvailableSQLServers
With oNameList
lCount = .Count
If lCount > 0 Then
For lCtr = 1 To .Count
iElement = IIf(sAns(0) = "", 0, UBound(sAns) + 1)
ReDim Preserve sAns(iElement) As String
sAns(iElement) = oNameList.Item(lCtr)
Next
End If
End With
AvailableSQLServers = sAns
Exit Function
ErrorHandler:
'En caso de error no devuelve nada
ReDim sAns(0) As String
AvailableSQLServers = sAns
End Function

Saludos desde Lima