Función VB que devuelve el usuario de windows
Buenas tardes,
Estoy elaborando un informe en una BBDD en Access97, y necesitaba una función de me devolviese el nombre de usuario de windows.
¿Para qué quiero esto?
Ya que dependiendo de que usuario abra la BBDD, se le mostrarán unas cosas y otras.
Es decir... Necesitaba una función, que me devolviese una variable con el nombre del usuario de windows activo.
Muchísimas gracias por vuestro tiempo!
Un saludo.
Estoy elaborando un informe en una BBDD en Access97, y necesitaba una función de me devolviese el nombre de usuario de windows.
¿Para qué quiero esto?
Ya que dependiendo de que usuario abra la BBDD, se le mostrarán unas cosas y otras.
Es decir... Necesitaba una función, que me devolviese una variable con el nombre del usuario de windows activo.
Muchísimas gracias por vuestro tiempo!
Un saludo.
1 Respuesta
Respuesta de andi_andi
1
Crea un modulo y pega esta API
Option Compare Database
Option Explicit
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'-----------------------------------------------------------------------------------------
' Identificar usuarios
'-----------------------------------------------------------------------------------------
Function NombreUsuarioNT() As String
On Error GoTo fOSUserName_Err
Dim lngLen As Long, lngX As Long
Dim strUserName As String
Dim A As String
strUserName = String$(254, 1)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX <> 3 Then
NombreUsuarioNT = Left$(strUserName, lngLen - 1)
Else
NombreUsuarioNT = "Desconocido"
End If
fOSUserName_Exit:
Exit Function
fOSUserName_Err:
MsgBox Error$
Resume fOSUserName_Exit
End Function
PARA LLAMAR LA FUNCION DESDE UN CONTROL
=fOSUserName
Option Compare Database
Option Explicit
Private Declare Function apiGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'-----------------------------------------------------------------------------------------
' Identificar usuarios
'-----------------------------------------------------------------------------------------
Function NombreUsuarioNT() As String
On Error GoTo fOSUserName_Err
Dim lngLen As Long, lngX As Long
Dim strUserName As String
Dim A As String
strUserName = String$(254, 1)
lngLen = 255
lngX = apiGetUserName(strUserName, lngLen)
If lngX <> 3 Then
NombreUsuarioNT = Left$(strUserName, lngLen - 1)
Else
NombreUsuarioNT = "Desconocido"
End If
fOSUserName_Exit:
Exit Function
fOSUserName_Err:
MsgBox Error$
Resume fOSUserName_Exit
End Function
PARA LLAMAR LA FUNCION DESDE UN CONTROL
=fOSUserName
