Como puedo saber el nombre de mi equipo

Como puedo saber el nombre de mi equipo desde Access
1

1 respuesta

Respuesta
1
Usa esta función
Private Declare Function apiGetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Function fOSMachineName() As String
'Devuelve el nombre del equipo
Dim lngLen As Long, lngX As Long
Dim strCompName As String
lngLen = 16
strCompName = String$(lngLen, 0)
lngX = apiGetComputerName(strCompName, lngLen)
If lngX <> 0 Then
fOSMachineName = Left$(strCompName, lngLen)
Else
fOSMachineName = ""
End If
End Function

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas