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
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
0