Changer le mot de passe du compte administrateur local

Ce script permet de réinitialiser le mot de passe du compte administrateur local d’un ordinateur. Il suffit alors de le déployer à l’aide d’une GPO ou par un logonscript pour réinitialiser massivement les mots de passe de l’ensemble des comptes administrateurs locaux d’un domaine.

Set oShell = CreateObject("WScript.Shell")
Const SUCCESS = 0
sUser = "Administrateur"
sPwd = "NouveauMotDePasse"
Set oWshNet = CreateObject("WScript.Network")
sComputerName = oWshNet.ComputerName
Set oUser = GetObject("WinNT://" & sComputerName & "/" & sUser)
oUser.SetPassword sPwd
oUser.Setinfo
oShell.LogEvent SUCCESS, "Mot de passe du compte administrateur local changé"