Как создать авторизацию ldap для приложения asp classic

Question

У меня проблема с аутентификацией LDAP в приложении aps classic.Я нашел скрипт для этого, но он не работает.Кто-нибудь может сказать мне, что мне нужно, чтобы это было сделано?Я прилагаю ниже аутентификации, которая всегда возвращает ложь.Я благодарен за примеры для переменных из этой функции, потому что я не знаю, где я ошибся.

Спасибо за ваше внимание.

function AuthenticateUser(Username,Password,Domain)
    dim strUser,strPass,strQuery,oConn,cmd,oRS
    AuthenticateUser = false
    strQuery = "SELECT cn FROM 'LDAP://" & Domain & "' WHERE 
objectClass='*'"
    set oConn = server.CreateObject("ADODB.Connection")
    oConn.Provider = "ADsDSOOBJECT"
    oConn.properties("User ID") = Username
    oConn.properties("Password")=Password
    oConn.properties("Encrypt Password") = true
    oConn.open "DS Query", Username,Password
    set cmd = server.CreateObject("ADODB.Command")
    set cmd.ActiveConnection = oConn
    cmd.CommandText = strQuery
    on error resume next
    set oRS = cmd.Execute
    if oRS.bof or oRS.eof then
        AuthenticateUser = false
    else
        AuthenticateUser = true
    end if
    set oRS = nothing
    set oConn = nothing
end function