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.