Modifer mot de passe admin local

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.

Code:

---

1 2 3 4 5 6 7 8

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.

Rajoute cà pour voir :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11

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*!") objUser.SetInfo Next

---