Script de réinitialisation admin password

Ce script VBS permet de réinitialiser le mot de passe administrateur des postes XP (et Vista j'ai un doute) sous forme de GPO.

Set oShell = CreateObject("WScript.Shell")
Const SUCCESS = 0
sUser = "Administrateur"
sPwd = "SECURE_MDP"
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é"

vbs, password

Authentification requise pour déposer votre message.