Visual Basic - Obtener Nombre Servidor SQL

Hola,
Necesito Obtener por medio de Visual Basic el nombre del Servidor SQL Server instalado en un PC pq si no es asi, ejecuto el SQL MSDE para instalarlo en la máquina. En el caso de que se encuentre pues por medio del SQLDMO estoy agregando una base de Datos, restaurando los datos y agregando los usuarios. Me gustaria saber, si con el SQLDMO o con otra referencia, se puede obtener el nombre del Servidor del ordenador o por lo menos si existe algun servidor instalado en él.

El Objetivo de este programa es que a la hora de instalar un programa me cree el Servidor SQL (Si no hay ninguno instalado), la Base de Datos y los usuarios.

Gracias por vuestra colaboración.

Un Saludo,

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

Gracias por tu ayuda. La Funcion que me has añadido me funcionó.

Un saludo.