
20/06/2002, 14:02
|
 | | | Fecha de Ingreso: septiembre-2000 Ubicación: Frente a la compu
Mensajes: 660
Antigüedad: 24 años, 6 meses Puntos: 2 | |
Re: Nombre de la PC 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
|