Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question<% MonUser= request.servervariables("REMOTE_USER") ' Path de l'utilisateur complet qui a le droit de lire dans l'Active Directory 'Filtre ldap pour la recherche str= "<LDAP://Monserver/ou=MonOU,DC=TOTO,DC=FR>;(&(cn="&MonUser &") (objectclass=User));cn,mail,OU;subtree" dim ADO,objrs Set ADO=Server.CreateObject("ADODB.connection") ado.Provider="ADSDSOObject" ado.Properties("Encrypt Password") = 1 ado.Open ("ADs Provider") set objrs=ADO.Execute(str) if (objrs.EOF<>true) and (objrs.BOF<>true) then cn=objrs.Fields(0).value Response.write "bonjour "&cn %>