<%
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)
Response.Write "<font size=2>"
Response.Write " <table align='center' border=1 cellspacing=0 cellpadding=0>"
Response.Write " <tr> "
Response.Write " <td width=" &"""30%"""&">"
Response.Write " <font size=4 >Nom prenom </font>"
Response.Write " </td>"
Response.Write " <td width="&"""20%"""&"> "
Response.Write " <font size=4 >Email </font>"
Response.Write " </td>"
Response.Write " </tr>"
while not objrs.EOF
cn=objrs.Fields(0).value
mail=objrs.Fields(1).value
unite=objrs.Fields(2).value
if mail<>"" then
Response.write "<TR>"
Response.write "<td>" & cn & "</td><td>" & mail &" |"& unite & "</td>"
Response.write "</TR>"
end if
objrs.MoveNext
wend
Response.Write "</table>"
Response.Write "</font>"
-------------------------------
Réponse au message :
-------------------------------
ça marche, merci gars !! mais mon problème est de pouvoir identifier le groupe d'un utilisateur déclaré ds active directory. Comment l'interrroger avec asp et balancer une requête ??
merci d'avance...
-------------------------------
Réponse au message :
-------------------------------
j'ai fais une faute de frappe essaye ca
<%
for each elements in request.servervariables
response.write(elements&"="&request.servervariables(elements)&"<br>")
next
%>
je les testé et ca fonctionne