Recherche utilisateurs AD en vbs
Fermé
aloisiø
Messages postés
54
Date d'inscription
lundi 30 mai 2011
Statut
Membre
Dernière intervention
4 octobre 2014
-
11 juil. 2011 à 15:59
aminos1616 Messages postés 15 Date d'inscription lundi 11 juillet 2011 Statut Membre Dernière intervention 11 mars 2012 - 11 juil. 2011 à 16:57
aminos1616 Messages postés 15 Date d'inscription lundi 11 juillet 2011 Statut Membre Dernière intervention 11 mars 2012 - 11 juil. 2011 à 16:57
A voir également:
- Recherche utilisateurs AD en vbs
- Recherche automatique des chaînes ne fonctionne pas - Guide
- Vbs windows - Accueil - Optimisation
- Recherche adresse - Guide
- Recherche image - Guide
- Recherche musique - Guide
7 réponses
aminos1616
Messages postés
15
Date d'inscription
lundi 11 juillet 2011
Statut
Membre
Dernière intervention
11 mars 2012
11 juil. 2011 à 16:06
11 juil. 2011 à 16:06
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
aloisiø
Messages postés
54
Date d'inscription
lundi 30 mai 2011
Statut
Membre
Dernière intervention
4 octobre 2014
1
11 juil. 2011 à 16:11
11 juil. 2011 à 16:11
Je crois que vous mal compris, je veux juste la syntaxe pour faire une recherche dans l'AD d'utilisateur.
aminos1616
Messages postés
15
Date d'inscription
lundi 11 juillet 2011
Statut
Membre
Dernière intervention
11 mars 2012
11 juil. 2011 à 16:16
11 juil. 2011 à 16:16
ah ok dsl alors vous ouvri favori reseau et tu clique sur recherche dans active directory tu tappe l'utilisateur que tu recherche
aloisiø
Messages postés
54
Date d'inscription
lundi 30 mai 2011
Statut
Membre
Dernière intervention
4 octobre 2014
1
11 juil. 2011 à 16:18
11 juil. 2011 à 16:18
en vbs ...
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
aminos1616
Messages postés
15
Date d'inscription
lundi 11 juillet 2011
Statut
Membre
Dernière intervention
11 mars 2012
11 juil. 2011 à 16:31
11 juil. 2011 à 16:31
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
aloisiø
Messages postés
54
Date d'inscription
lundi 30 mai 2011
Statut
Membre
Dernière intervention
4 octobre 2014
1
11 juil. 2011 à 16:46
11 juil. 2011 à 16:46
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 !
je veux le faire avec un script en vbs !
aminos1616
Messages postés
15
Date d'inscription
lundi 11 juillet 2011
Statut
Membre
Dernière intervention
11 mars 2012
11 juil. 2011 à 16:57
11 juil. 2011 à 16:57
ah ok dsl malentendu