Modifier le PSW d'admin local

Fermé
dolsky Messages postés 18 Date d'inscription vendredi 30 novembre 2007 Statut Membre Dernière intervention 28 janvier 2011 - 5 févr. 2009 à 09:35
Bonjour,

Je géré un parck informatique. j'ai plusieurs machines dans AD aux quelles je veux modifier le mot de passe d'admin local par un nouveau PSW. j'essai d'automatisé cette manipulation via un script sans le faire manuellement pour les centaines de PC que j'ai.

J'ai utilisé le Script suivant mais je garde tjrs l'ancien PSW. est ce que vous pouvez m'aider à résoudre ce porblème.

Set objOU = GetObject("LDAP://OU=X, DC=NDD, DC=com")
objOU.Filter = Array("Computer")

For Each objItem in objOU
strComputer = objItem.CN
Set objUser = GetObject("WinNT://" & strComputer & "/Administrator")
objUser.SetPassword("i5A2sj*!")
Next

Merci pour l'aide