Alterando Senha de Administrador Local por Script

Para alterarmos a senha de administrador local sem ter que passar máquina por máquina, basta criarmos 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

No post Removendo Usuário do Grupo de Administradores por Script explica passo a passo como criar um script de inicialização.

Devemos cuidar se o SO for em inglês alterar Administrador para Administrator, se possuir regras para a criação de senha deve-se ter cuidado para que ela atenda aos requisitos impostos para que não haja problemas.

É aconselhável deixar esse script encriptado, para saber como fazer isso leia o post Encriptando Scripts VBS com o Microsoft Script Encoder


Esse script juntamente com o para remover os usuários do grupo de administradores me ajudaram muito quando precisei impor políticas de uso dos computadores mais rígidas, espero que possa ajudar vocês também.