Alterando Senha de Administrador Local via Script

Para alterarmos a senha de administrador local sem ter que ir de máquina em máquina, vamos criar uma policy de script de inicialização e inserir o seguinte script:

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName
Set colAccounts = GetObject("WinNT://" & strComputer & ",computer")
Set objUser = GetObject("WinNT://" & strComputer & "/Administrador, user")
objUser.SetPassword "NOVA_SENHA"
objUser.SetInfo