Usernames and Passwords

[psycoperl]

I would like to know if there is a way to require a user to reenter/validate their Windows Username and Password credentials when they are trying to access sensitive information in a database.

Here is the situation that I envision.

A user logs in to windows and the system (they have a high level of access), they leave there desk and a co-worker with a lower level trys to view a part of the system that is restricted to high users.

I would like to challenge the user when they need to look at the higher level information in the system and make them re-enter their windows username and password to verify their identity.

Is this possible?


Best.

 

[HiTechCoach]

Windows authentication is generally used when when you want a "single sign on" so the user never has to enter their password again one it has been authenticated.


This may help:

<code>Function WindowsLogin(ByVal strUserName As String, ByVal strpassword As String, ByVal strDomain As String) As Boolean
    'Authenticates user and password entered with Active Directory. 

    On Error GoTo IncorrectPassword

    Dim oADsObject, oADsNamespace As Object
    Dim strADsPath As String

    strADsPath = "WinNT://" & strDomain
    Set oADsObject = GetObject(strADsPath)
    Set oADsNamespace = GetObject("WinNT:")
    Set oADsObject = oADsNamespace.OpenDSObject(strADsPath, strDomain & "\" & strUserName, strpassword, 0)

    WindowsLogin = True    'ACCESS GRANTED

ExitSub:
    Exit Function

IncorrectPassword:
    WindowsLogin = False   'ACCESS DENIED
    Resume ExitSub
End Function</code>

 

[HiTechCoach]

This is additional discussion on a duplicate post here UtterAccess Microsoft Access Help Forums and Wiki