Scenario
You used to use startup scripts to update all Local Administrator passwords throughout your domain, but now that you think logon scripts are the Devil’s work, you need another way of doing it.
I mean, look at the code…it’s not heavenly is it:
Set SatanNet = WScript.CreateObject("WScript.Network") strComputer = "." Set LuciferUser = GetObject("WinNT://" & strComputer & "/Administrator,user") LuciferUser.SetPassword "PASSWORD'o'HELL" ' Enter new password between brackets LuciferUser.SetInfo
Here’s a nicer, flame-resistant solution: