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é"
📖 Retrouve tous nos comparatifs VPN et conseils vie privée dans notre Guide VPN & Vie Privée 2026.
merci pour le tips, très joli astuce