19 messaggi dal 17 gennaio 2011
Buonasera avrei bisogno di sviluppare con ASP Classic l'autenticazione LDAP va bene questo codice?

function AuthenticateUser(UserName, Password, Domain)

dim sDominio, sUser, sPassword , objLDAP, sLDAPstring, ObjLoggedOn

'assume failure
AuthenticateUser = false

sUser = UserName
sPassword = Password
sDominio = Domain

On Error Resume Next

Set objLDAP = GetObject("LDAP:")

sLDAPstring = "LDAP://" & sDominio

Set ObjLoggedOn = objLDAP.OpenDSObject(sLDAPstring, sDominio & "\" & sUser , sPassword, 1)

if err = 0 then
AuthenticateUser = true
Session("Pwd") = sPassword
else
AuthenticateUser = false
end if

set objLDAP = nothing
set ObjLoggedOn = nothing

end function


Grazie

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.