Obtener el nombre del equipo


La función de la API GetComputerName permite recuperar el nombre que hemos asignado al equipo en la configuración de la red en el panel de control. A continuación, se muestra como lograrlo:

1º Cree un nuevo proyecto en Visual Basic. Por defecto, se crea el formulario Form1. 

2º Añada un botón tipo Command al Form1. Por defecto, el botón tiene el nombre Command1. 

3º Añada el siguiente código al evento Click del Command1: 

Private Sub Command1_Click()
Dim sEquipo As String * 255
GetComputerName sEquipo, 255
MsgBox sEquipo
End Sub 

4º Añada el siguiente código en la sección Declaraciones del Form1: 

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