Visual Basic - nombre del equipo

Hola, mi pregunta es como puedo desde visual obtener la identificación de red del equipo(si es que se puede) para no tener que hacerlo manualmente. Es para conectar una base de datos SQL Server.
Desde ya muchas gracias por tu ayuda y espero una pronta respuesta, Saludos!
Alejandro.

\'en un modulo
Public Const MAX_COMPUTERNAME_LENGTH As Long = 31
Public Declare Function GetComputerName Lib \"Kernel32\" Alias \"GetComputerNameA\" (ByVal lpBuffer As String, nSize As Long) As Long
Public strString As String

\'en cualquier sitio
Sub Identificar()
Dim dwLen As Long
dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, \"X\")
GetComputerName strString, dwLen
strString = Left(strString, dwLen)
End Sub

En las declaraciones de procedimientos los nombres de las librerias deben de ir entrecomilladas pero sin las barras "\", no se por que se añadieron.

"GetComputerNameA"
"Kernel32"