Bloquage dans une boucle

[PrinceMaster77]

Bonjour a tous ,je ne parviens pas a me connecter à un annuaire LDAP externe en utilisant ces lignes de commandes et je ne parviens pas a touver mon erreur :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
 
 'Variables de connexion
 adServer = "192.168.0.50:389" 	'Nom du serveur
 adDc = "dc=flosysteme,dc=lan" 	'Contrôleur de domaine
 
 'Pour se connecter en anonyme ; pas accès à tout mais lecture oui en general
 adUser = "anonymous" 		'Login de connexion au serveur
 adPassword = "" 		'Mot de passe du login connecté
 
 'Construction de la chaine de connexion
 strLdap = "LDAP://" & adServer & "/"& adDc
 If (not strLdap= "") then
  set oADsNamespace = GetObject("LDAP:")
  Set oADsObject = oADsNamespace.OpenDSObject(strLdap, strConnection,adPassword,0)
  If not (Err.number = 0) then
   Response.Write "Impossible de se connecter à l'annuaire : "& strLdap
   Response.write err.number & ":" & err.description
  Else
   Response.Write("Connextion établie : "& strLdap & strConnection)
   For Each obj in oADsObject
    Response.Write( obj.Name &" "& obj.Mail &" "& obj.Mobile &" "& obj.O &"<BR>")
   Next
  End If
 End If

J'obtiens un erreur : error '8007202c' sur cette ligne = "For Each obj in oADsObject"

Merci pour votre aide

[PrinceMaster77]

Je recherche des informations dans mon annuaire externe (LDAP) via des commandes ASP, je parviens a atteindre mon serveur mais j'observe un bloquage lors de la boucle de tous mes enregistrements.

voici mon code :

Code :

1
2
3
4
5
6
7
8
 
 
 Set cont = GetObject("LDAP://"& adServer)
 
 'Ici mon erreur !!!!!!!
 For Each obj in cont
  Response.Write obj.Name & "<BR>"
 Next

[roro06]

Bonjour aussi

Une piste : tu peux ajouter :
Response.flush() pour observer ce qui se passe :

Code :

1
2
3
4
5
6
7
 Set cont = GetObject("LDAP://"& adServer)
 
 'Ici mon erreur !!!!!!!
 For Each obj in cont
  Response.Write obj.Name & "<BR>"
Response.Flush()
 Next

[PrinceMaster77]

Cela ne me dit rien de plus

[roro06]

Bonjour

En ajoutant response.flush, tu envoie a la volee la réponse au navigateur. Tu peux, par exemple, écrire :

Code :

1
2
3
4
 For Each obj in cont
  Response.Write "nom objet : " & obj.Name & "<BR>"
Response.Flush()
 Next

Tu dois voir arriver une succession de :

Code :

1
2
 
nom objet :  etc...

au fur et a mesure du déroulement de ta boucle. Si tu ne vois pas ça arriver, c'est que ton blocage se situe en amont

[PrinceMaster77]

je n'est qu'un erreur : "" avec ces lignes de code

Code :

1
2
3
4
5
6
7
8
9
10
11
 
 
 'Variables de connexion
 adServer = "192.168.0.50:389" 			
 adDc = "dc=Comp,dc=lan" 	
 
 Set cont = GetObject("LDAP://"& adServer)
 For Each obj in cont
  Response.Write obj.Name & "<BR>"
   Response.Flush()
 Next

J'ai une erreur ASP au niveau de cette ligne : "For Each obj in cont"

Mais Response.Flush() ne m'indique rien

[roro06]

Bonjour

c'est qu'a mon avis,
GetObject("LDAP://"& adServer) ne te retourne pas une collection d'objets. Tu ne peux donc pas le parcourir avec une boucle for each

[Immobilis]

Salut,

Effectivement, ce ne doit pas être une collection.
Que fait "GetObject"?

A+