VBA: Iniciar sesión usando la Autenticación de Windows

Question

Tengo una Aplicación de acceso que requiere que el usuario ingrese su usuario y contraseña del dominio de Windows para ingresar. He utilizado el siguiente código VBA para lograr esto:

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 

noto que a veces cuando se introduce correctamente la información, el acceso es denegado. Intenté depurar una vez y me dio el error: "La ruta de red no se encontró. " en la línea Set oADsObject = oADsNamespace.OpenDSObject).

No estoy seguro de por qué esto ocurre a veces. ¿Es mejor convertir a LDAP en su lugar? He intentado pero no puedo construir la URL de LDAP correctamente.

Answer 1

Si el usuario ya está autenticado mediante su inicio de sesión de Windows, ¿por qué hacer que ingrese los detalles nuevamente?

Si lo que necesita saber qué usuario está conectado, se puede obtener el nombre de usuario muy fácilmente por la siguiente función:

 
Declare Function IGetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal sBuffer As String, lSize As Long) As Long 

Function GetUserName() As String 

    On Error Resume Next 

    Dim sBuffer As String 
    Dim lSize As Long 
    Dim x As Long 

    sBuffer = Space$(32) 
    lSize = Len(sBuffer) 
    x = IGetUserName(sBuffer, lSize) 
    GetUserName = left$(sBuffer, lSize - 1) 

End Function 

Answer 2

En el entorno GxP que es, además, necesario para entrar al menos una contraseña. No importa si está conectado a Windows, debe confirmarlo nuevamente.