Discussion :

[dolsky]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[spantemonium]

Rajoute cà pour voir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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