Visual Basic - SACAR NOMBRE DE UN PC EN VISUAL BASIC

COMO SACO EL NOMBRE DE UNA MAQUINA EN VISUAL BASIC. GRACIAS

te lo mando al correo???

Fijate con esto:

Private Const MAX_COMPUTERNAME_LENGTH As Long = 31

Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Private Sub Form_Load()
Dim dwLen As Long
Dim strString As String

dwLen = MAX_COMPUTERNAME_LENGTH + 1
strString = String(dwLen, "X")

GetComputerName strString, dwLen

strString = Left(strString, dwLen)
MsgBox strString
End Sub