Bonjour, je débute en VBS, et je dois faire un scriPt qui modifie pour l'ensemble des utilisateurs de mon AD un champs ( pou l'exmple je vais prendre, le champ limite de session inactive. Comme j'ai des UO avec des sous UO, j'utilise une requête ADO. Voilà mon script actuel :
 
Set objetConnexion = CreateObject("ADODB.Connection" )
objetConnexion.open "Provider=ADsDSOObject;"
Set objetCommande = CreateObject("ADODB.Command" )
objetCommande.ActiveConnection = objetconnexion
objetCommande.CommandText = _
    "<GC://ou=uo_test_gpo,dc=mondomain,dc=priv>;(objectCategory=User)" & _
        ";userAccountControl,distinguishedName;subtree"
set objEnregistrement = objetCommande.Execute
 
for Each objuser in objEnregistrement
  objuser.maxidletime = 600
  objuser.setinfo
Next
ObjetConnexion.close
 
Le problème est qu'à chaque fois que je le lance sur mon dc, j'ai le message suivant :  
 
Ligne : 10 (for Each objuser in objEnregistrement)
Caract. : 1
Erreur : Cet objet ne gère pas cette propriété ou cette méthode
Code : 800A01B6
Source :  Erreur d'exécution Microsoft VBScript
 
==> ça donne l'impression que le objuser n'ai pas géré par le "for". pourqoui ? que dois-je faire pour faire fonctionner ce script ?  
 
D'avance merci
 
Chailloug.

Bon suite à multiple test hier, j'ai compris ce qui se passait. Lorsq d'une requète ADO, je n'ai pas l'objet objuser qui me revient, mais les champs définis dans "<GC://ou=uo_test_gpo,dc=mondomain,dc=priv>;(objectCategory=User)" & _  
        ";userAccountControl,distinguishedName;subtree".
 
Le problème c'est qu'une fois récupéré ce qui m'intérresse (ici ll faut que je mette MaxiDleTime a la place de distinguishedName), je ne sais pas comment le récupérer/modifier/renvoyé dans mon AD.
 
Si quelqu'un si connais bien en vbs ADSI avec requête AD, je suis preneur de tout conseil !!!
 
 

un petit up, peut être que les pro du vbs d'administration sont rentrés de vacances