Recherche utilisateurs AD en vbs

voila un exemple script qui permet de determiner nom location et os et mettre base donner ds access
set Con=CreateObject("ADODB.Connection")
Set rs1=Createobject("ADODB.Recordset")
Con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "C:\Documents and Settings\s.dridat\Bureau\AD1.mdb"

rs1.Open "select * from computer2", Con, 3, 3

Const ADS_SCOPE_SUBTREE = 2

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand = CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = "Select Name,location, operatingsystem from 'LDAP://OU=Nouveau_Codage,OU=AC,OU=ordinateurs,DC=adii,DC=gov,DC=ma ' " & "Where objectClass='computer'"
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF

rs1.addnew
rs1.fields("nom")= objRecordSet.Fields("Name").Value
rs1.fields("Location")= objRecordSet.Fields("location").Value
rs1.fields("OS")= objRecordSet.Fields("operatingsystem").Value
rs1.update

objRecordSet.MoveNext
Loop

rs1.close

con.close

Je crois que vous mal compris, je veux juste la syntaxe pour faire une recherche dans l'AD d'utilisateur.

ah ok dsl alors vous ouvri favori reseau et tu clique sur recherche dans active directory tu tappe l'utilisateur que tu recherche

en vbs ...

nn pas en vbs seulment tu clique demarrer aprés favori reseau et enfin tu clique sur recherche dans active directory et tu tappe l'utilisateur que tu recherche

euh tu comprends pas que je veux le faire en vbs ? je sais tres bien comment rechercher un utilisateur dans l'active directory merci me prends pas pour un con non plus !
je veux le faire avec un script en vbs !

ah ok dsl malentendu