1
Añada el funcionamiento interno de Windows para el archivo de código de Visual Basic . El sistema operativo Windows tiene una función interna se agrega al código que le permite recuperar el nombre del equipo . Agregue el código siguiente al principio del archivo de código :
Declare Function GetComputerName Lib " kernel32 " Alias " GetComputerNameA " ( ByVal lpBuffer As String , nSize As Long ) As Long
2
Recuperar el nombre del equipo . El siguiente código crea una variable y utiliza la función de agregado en el Paso 1 para obtener el nombre del equipo :
nombre Dim As String
nombre
= GetComputerName ( strBuffer , lngBufSize )
Página 3
Muestra el nombre del equipo recuperado. Esto es beneficioso cuando se prueba la aplicación o cuando se quiere mostrar los resultados al usuario . Agregue el código siguiente para mostrar los resultados :
MsgBox ( " El nombre del equipo es :" & nombre)