Este codigo sirve para obtener el nombre del PC actual:

Código:
Private Declare Function apiGetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Código:
Private Function NombrePC() As String
Dim Resultado As String
 Resultado = Space(255)
 Call apiGetComputerName(Resultado, 255)
 NombrePC = StripTerminator(Resultado)
End Function

Private Function StripTerminator(sString As String) As String
 StripTerminator = Left$(sString, InStr(sString, Chr$(0)) - 1)
End Function

Saludos,
Skipped

Edited by: Skipped