Bonjour,
Inspiré d'un code sur le net
J'ai écris le code suivant qui fonctionne très bien.

'Trouver le nombre de poste dans l'AD

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
option explicit
	 Dim ObjNetwork, ObjWinNT, ObjDomaine, Nom, Domaine, i
	 i=0
	 ' Recuperer le nom de domaine
	 set ObjNetwork=WScript.CreateObject("Wscript.Network")
	 Domaine=objNetwork.UserDomain
 
	 'Ouvrir le fournisseur WinNT (respectez la casse).
     set ObjWinNT=GetObject("WinNT://" & Domaine)
 
     For each ObjDomaine in ObjWinNT
		If lcase(ObjDomaine.class)="computer" then
			Nom = ObjDomaine.Name
			'compter les computers qui commencent par
			If  lcase(Mid(Nom, 1,2))="al" or lcase(Mid(Nom, 1,2))="ca"  or lcase(Mid(Nom, 1,2))="cp" or lcase(Mid(Nom, 1,2))="fo" _
				or lcase(Mid(Nom, 1,2))="gu" or lcase(Mid(Nom, 1,2))="in" or lcase(Mid(Nom, 1,2))="jf" or lcase(Mid(Nom, 1,2))="jp" _ 
				or lcase(Mid(Nom, 1,2))="mj" or lcase(Mid(Nom, 1,2))="mp" or lcase(Mid(Nom, 1,2))="mt" or lcase(Mid(Nom, 1,2))="ne" _
				or lcase(Mid(Nom, 1,1))="p" or lcase(Mid(Nom, 1,2))="re" or lcase(Mid(Nom, 1,2))="sa" or lcase(Mid(Nom, 1,2))="st"  _
				or lcase(Mid(Nom, 1,2))="tg" or lcase(Mid(Nom, 1,2))="ti" or lcase(Mid(Nom, 1,2))="tl" or lcase(Mid(Nom, 1,2))="tp" then	
				i=i+1
		End If
     End If
     Next
	 wscript.echo I


J'aimerai pouvoir écrire le même code avec le fournisseur LDAP si c'est possible. Pour cela je dois parcourir les OU. ou suis je obligé d'utiliser les accès ADO pour faire cela?

Merci.

P.S: le fournisseur WINNT ne reconnait pas les OU