Conocer el nombre de usuario
Tengo esta instrucción :
environ("username") y me sale por ejemplo : lsehyt, pero el usuario es Pedro Pérez. ¿Hay alguna instrucción o API o lo que sea para que me devuelva Pedro Pérez?
Muchas gracias.
jiccobra
[email protected]
environ("username") y me sale por ejemplo : lsehyt, pero el usuario es Pedro Pérez. ¿Hay alguna instrucción o API o lo que sea para que me devuelva Pedro Pérez?
Muchas gracias.
jiccobra
[email protected]
Respuesta de jbposada7
1
Con estos dos métodos puedes obtener el nombre de usuario fácilmente
Espero que solucionen tu problema
'API para obtener el usuario actual
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpbuffer As String, nSize As Long) As Long
'Esta función devuelve el nombre del Usuario
Public Function UsuarioActual() As String
Dim sBuffer As String
Dim lSize As Long
Dim sUsuario As String
sBuffer = Space$(260)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
sUsuario = Left$(sBuffer, lSize)
'Quitarle el CHR$(0) del final...
lSize = InStr(sUsuario, Chr$(0))
If lSize Then
sUsuario = Left$(sUsuario, lSize - 1)
End If
Else
sUsuario = ""
End If
UsuarioActual = sUsuario
End Function
Suerte
Espero que solucionen tu problema
'API para obtener el usuario actual
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpbuffer As String, nSize As Long) As Long
'Esta función devuelve el nombre del Usuario
Public Function UsuarioActual() As String
Dim sBuffer As String
Dim lSize As Long
Dim sUsuario As String
sBuffer = Space$(260)
lSize = Len(sBuffer)
Call GetUserName(sBuffer, lSize)
If lSize > 0 Then
sUsuario = Left$(sBuffer, lSize)
'Quitarle el CHR$(0) del final...
lSize = InStr(sUsuario, Chr$(0))
If lSize Then
sUsuario = Left$(sUsuario, lSize - 1)
End If
Else
sUsuario = ""
End If
UsuarioActual = sUsuario
End Function
Suerte
Gracias por tu respuesta pero no era eso lo que quería. El código de usuario ya lo tengo pero es la descripción del usuario lo que quiero.
