[RESUELTO] Gestión Usuario de windows

[tpesdel]

Buenas noches
Pregunto? hay alguna manera de capturar el Usuario de windows que esta usando la maquina,
me explico en access con la siguiente función se captura el Usuario actual del PC

Código: Seleccionar todo

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpbuffer As String, nSize As Long) As Long

Public Function UsuarioAct() 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
UsuarioAct = sUsuario
End Function

esta función la utilizo para darle permisos a los Usuario que pueden acceder a la base de datos
lo compara con los usuario de una tabla de usuarios y si no esta no puede acceder

He buscado en el foro o no lo he echo bien o no esta
Puede alguien orientarme si existe algo similar
Un saludo

[fornelasa]

Pregunto? hay alguna manera de capturar el Usuario de windows que esta usando la maquina,

Para saber el usuario pudiera ser tal vez algo similar a cualquiera de esto:

Código: Seleccionar todo

Sub Usuario
	Dim uSuario As String
   	    uSuario = Environ("COMPUTERNAME")
msgbox uSuario
	    uSuario = Environ("LOGONSERVER")
msgbox uSuario
End Sub			

Saludos, Federico.

[tpesdel]

Lo miro gracias
un saludo

[tpesdel]

Perfecto he modificado la linea
uSuario = Environ("USERNAME")
y funciona perfecto, gracias soy geniales
Un salUdo desde Tenerife