ASP ET ACTIVE DIRECTORY - URGENT

Signaler
Messages postés
4
Date d'inscription
vendredi 8 février 2002
Statut
Membre
Dernière intervention
11 février 2002
-
Messages postés
12
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
27 avril 2004
-
Bonjour à tous,

je suis débutant, et je dois implanter un intranet html/asp en récupérant automatiquement l'identité de la personne sur le réseau qui se connectera au site, pour aller chercher ds l'active directory, le groupe auquelle elle appartient, afin de lui appliquer les options qui lui correspondent.

Je suis totalement perdu, quelqu'un aurait-il un script exemple ou une solution à me proposer.

Merci d'avance...MERCI !!

9 réponses

Messages postés
70
Date d'inscription
dimanche 20 janvier 2002
Statut
Membre
Dernière intervention
16 février 2002

Tu dois utiliser les composants ADSI.
Tu trouveras toute la doc nécessaire à partir de http://www.microsoft.com/windows2000/techinfo/howitworks/activedirectory/adsilinks.asp
Bon courage.
Messages postés
4
Date d'inscription
vendredi 8 février 2002
Statut
Membre
Dernière intervention
11 février 2002

Merci à toi, je m'y mets de suite.....

Si tu as quelques astuces pour me permettre d'avancer plus vite, ce serait cool...

Merci quand même...
Messages postés
26
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
16 août 2002

essaye ce bout de code en ASP
je pense que tu trouveras ton bonheur
<%
for each elements in request.servervriables
response.write(elements&"="&request.servervariables(elements)&"
")
next
%>
en fait ce bout de code est l'ensemble des variables serveurs tu peux dc t'en servir pour que la personne qui se connecte a ton intra tombe sur sa session
danger : si la personne se logue et se casse toutes les personnes qui se connecteront a l'intra seront logue a la place de la personne
Messages postés
4
Date d'inscription
vendredi 8 février 2002
Statut
Membre
Dernière intervention
11 février 2002

je prends ce message d'erreur :
Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 11

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Erreur d'exécution Microsoft VBScript error '800a01b6'

Cet objet ne gère pas cette propriété ou cette méthode: 'request.servervriables'

/ASP/test5.asp, line 2

?? Une idée........Merci
Messages postés
26
Date d'inscription
vendredi 1 février 2002
Statut
Membre
Dernière intervention
16 août 2002

j'ai fais une faute de frappe essaye ca
<%
for each elements in request.servervariables
response.write(elements&"="&request.servervariables(elements)&"
")
next
%>
je les testé et ca fonctionne
Messages postés
4
Date d'inscription
vendredi 8 février 2002
Statut
Membre
Dernière intervention
11 février 2002

ç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...
Messages postés
2
Date d'inscription
lundi 28 octobre 2002
Statut
Membre
Dernière intervention
28 octobre 2002

<%
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 ""
Response.Write " \"
Response.Write \" ----
\"
Response.Write \" "
Response.Write " Nom prenom
"
Response.Write ", \"
Response.Write \" "
Response.Write " Email "
Response.Write ", \"
Response.Write \" \"

while not objrs.EOF
cn=objrs.Fields(0).value
mail=objrs.Fields(1).value
unite=objrs.Fields(2).value
if mail<>\"\" then
Response.write \"----
\"
Response.write \"" & cn & ", " & mail &" |"& unite & ", \"
Response.write \"\"
end if
objrs.MoveNext
wend
Response.Write "
"
Response.Write ""
Messages postés
2
Date d'inscription
lundi 28 octobre 2002
Statut
Membre
Dernière intervention
28 octobre 2002

<%
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
%>
Messages postés
12
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
27 avril 2004

Nicolas,

Bonjour Beetho,
je viens de voir ton code pour ASP et Active Directory,
j'ai essayé de le faire fonctionner sur Server 2003 et IIS 6.0 mais ca ne marceh pas comme je le voudrais.
Ca ne plante pas mais il ne m'affiche aucun utilisateur
Peux tu m'aider

Merci