Nombre de la PC

[akela]

Alguien sabe cómo puedo obtener el nombre de la PC en Visual Basic?

me supongo que si se puede...

¿alguien?

gracias!

[Brizza]

Puedes probar con un objeto app

Ejemplo:

MsgBox App.CompanyName


Brizza

[akela]

que eso no me da el nombre del creaqdor de la aplicación?


yo necesito ese nombre dela pc que se ve en el entorno de red cuando accesas.

[akela]

para el que le interese:

Código:

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
   'Create a buffer
   dwLen = MAX_COMPUTERNAME_LENGTH + 1
   strString = String(dwLen, "X")
   'Get the computer name
   GetComputerName strString, dwLen
   'get only the actual data
   strString = Left(strString, dwLen)
   'Show the computer name
   MsgBox strString
End Sub

[Max13]

Una forma más sencilla sin complicarse con el API es usando el control WinSock y el siguiente codigo te devuelve el nombre de la maquina local, o del host remoto que le asignes:

ControlWinSock.LocalHostName

[akela]

pues si, màs fàcil, gracias aunque ya usé la otra rutina,