SQL Server - Nombre del servidor y maquina

Como le hago para saber el nombre del servidor sql en mi lan y el nombre de la computadora donde esta instalado, es decir, hacer esto desde una maquina cliente. Por ahi, creo que se puede hacer con SQL-DMO pero quiero que la solucion sea compatible con maquinas que tengan w98 en adelante. Creo que SQL-DMO no funcionaria en todos los casos

Gracias de antemano.

SQL DMO no depende de la versión de Windows sino de que estén instalados sus componentes. Revisa si MDAC los incluye o consulta la ayuda de SQL Server.

Para lo que pides fijate con esto. Primero agrega la referencia SQL DMO a tu proyecto:

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