RE:Como visualizar y capturar nombre del equipo
Para que lo puedas visualizar.
Private Declare Function GetComputerName Lib "Kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Dim NombreMaquina As String
Private Sub Form_Load()
Text1 = Maquina
End Sub
Function Maquina() As String
Dim strBuffer As String
Dim lngBufSize As Long
Dim lngStatus As Long
lngBufSize = 255
strBuffer = String$(lngBufSize, " ")
lngStatus = GetComputerName(strBuffer, lngBufSize)
If lngStatus <> 0 Then
Maquina = Left(strBuffer, lngBufSize)
Else
Maquina = "X"
End If
End Function