Recherche utilisateurs AD en vbs
aloisiø
Messages postés
54
Date d'inscription
Statut
Membre
Dernière intervention
-
aminos1616 Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
aminos1616 Messages postés 15 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
je voudrais savoir comment je pourrais faire une recherche d'un utilisateur de l'active directory en vbs.
Merci d'avance
je voudrais savoir comment je pourrais faire une recherche d'un utilisateur de l'active directory en vbs.
Merci d'avance
A voir également:
- Recherche utilisateurs AD en vbs
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Vbs windows - Accueil - Optimisation
- Ad aware - Télécharger - Sécurité
- Recherche photo - Guide
- Je recherche une chanson - Guide
7 réponses
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
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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