Discussion :

[PrinceMaster77]

Je voudrais connaître en asp la syntaxe de connaction à un annuaire Activ Directory ?

[Fiquet]

Voici quelques liens avec des codes (certains en VB mais facilement refaisables en VBScript-ASP) :

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/adsi/adsi/iadsopendsobject_opendsobject.asp

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/adsi/adsi/adsi_object_model_for_ldap_providers.asp

[PrinceMaster77]

J'ai transcris les codes en asp mais je trouve une erreur, voici mon code :

ici l'url pour accéder à l'activ directory

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LDAP://192.168.0.155/CN=Nicolas Gavard, CN=Users,dc=testldap,dc=priv, Nicolas, 2006NG2006, ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND

Le teste de connection :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
   Ldap = "LDAP://192.168.0.155/CN=Nicolas Gavard, CN=Users,dc=testldap,dc=priv, Nicolas, 2006NG2006, ADS_SECURE_AUTHENTICATION + ADS_SERVER_BIND"
   Set objOU = GetObject(Ldap) 
   ObjOU.Filter= Array("user") 
   For Each objUser in objOU 
    If samaccountname=objUser.samaccountname then 
     Response.Write("trouvé") 
     arrMemberOf = objUser.GetEx("memberOf") 
     For Each Group in arrMemberOf 
      Response.Write(Group) 
     Next 
    End If 
   Next