Access - Comparar Password de windows con uno de access

 
Vista:
Imágen de perfil de Jose
Val: 71
Ha disminuido su posición en 2 puestos en Access (en relación al último mes)
Gráfica de Access

Comparar Password de windows con uno de access

Publicado por Jose (129 intervenciones) el 07/08/2013 23:16:11
Hola:
ahora traigo este punto, a ver si me pueden ayudar

recien consegui el codigo para recuperar el user name de windows, pero como puedo hacer para que desde access pueda comparar el password que se introduzca en un campo con el de windows, de esta forma se tendra acceso al sistema con un solo password al cambiar el de windows logicamente se cambia el de acceso al sistema,,

alguien tendra alguna solucion

este es el codigo que utilizo:

1.Escribo el código siguiente en un módulo y solo llamo al procedimiento Get_user_name desde algun evento y me aparece el user name de mi pc, cabe mencionar que lo encontre en la red

' Makes sure all variables are dimensioned in each subroutine.
Option Explicit

' Access the GetUserNameA function in advapi32.dll and
' call the function GetUserName.
Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, nSize As Long) As Long

' Main routine to Dimension variables, retrieve user name
' and display answer.
Sub Get_User_Name()

' Dimension variables
Dim lpBuff As String * 25
Dim ret As Long, UserName As String

' Get the user name minus any trailing spaces found in the name.
ret = GetUserName(lpBuff, 25)
UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

' Display the User Name
MsgBox UserName
End Sub


gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder