Recherche dans L'AD via WMI

Bonjour,

En ADSI, cela se gère via la propriété "Page Size". Une fois cette
propriété mise en place, ADSI renverra des paquets "d'objets" selon la
valeur spécifiée.

Voici un exemple de code utilisant ADO et ADSI pour faire une recherche
correcte :

'**********************************************
Dim strSQLQuery As String
Dim adoConnection As ADODB.Connection
Dim adoCommand As ADODB.Command
Dim adoRecordset As ADODB.Recordset

strSQLQuery = "SELECT ADsPath, cn, objectCategory, objectClass FROM
'LDAP://DAVROUS2000/DCÚvrous2k,DC=com' WHERE cn='B*'"

Set adoConnection = CreateObject("ADODB.Connection")
Set adoCommand = CreateObject("ADODB.Command")
Set adoRecordset = CreateObject("ADODB.Recordset")

adoConnection.Provider = "ADsDSOObject"

adoConnection.Properties("User ID") = "Administrator"
adoConnection.Properties("Password") = "password!1"
adoConnection.Properties("Encrypt Password") = True

adoConnection.Open "Active Directory Provider"

Set adoCommand.ActiveConnection = adoConnection

adoCommand.Properties("Page Size") = 99

adoCommand.CommandText = strSQLQuery

Debug.Print ("Requete SQL exécutée : " & strSQLQuery)

Set adoRecordset = adoCommand.Execute(strSQLQuery)

Debug.Print (adoRecordset.RecordCount & " objets trouvés...")

While Not adoRecordset.EOF
Debug.Print ("Common Name: " & _
adoRecordset.Fields.Item("cn").Value & vbNewLine & _
"ADsPath: " & adoRecordset.Fields("AdsPath") & vbNewLine)

adoRecordset.MoveNext
Wend

Set adoConnection = Nothing
Set adoCommand = Nothing
Set adoRecordset = Nothing
'**********************************************

Bon courage.

--
David Rousset
Microsoft France
--------------------
Merci de bien vouloir répondre à ce message dans le newsgroup où il a été
posté. Je le consulte régulièrement.


"Rich" <anonymous@discussions.microsoft.com> wrote in message
news:617c01c3e672$61324310$a301280a@phx.gbl...
Est-ce qu'il y a une façon d'outre passer la limitation de
WMI lors de la recherche dans l'AD. La limitation étant
que lors d'une recherche de groupe, si il y a plus de 1000
groupe, la recherche ne retourne que les 1000 premiers !!
La méthode range sur le site de microsoft, ne semble pas
fonstionner très bien.

Merci,