Código: Selecionar todos
strComputer = “.”
Set colAccounts = GetObject(“WinNT://” & strComputer & “,computer”)
Set objUser = GetObject(“WinNT://” & strComputer & “/Administrador, user”)
objUser.SetPassword “senha”
objUser.SetInfo1 - Criar uma nova Unidade organizacional chamada “estacoes”.
2 - Colocar os computadores cadastrados no dominio dentro dela.
3 - Criar uma nova policy vinculada a essa OU em: configurações do computador / configurações do windows / scripts / inicializar
4 - Informar o local do arquivo de script vbs criado. ex.: \\SEUSERVIDOR\NETLOGON\RESETASENHA.VBS
5 - Reiniciar as estações
6 - Correr pro abraço… hehehe
Observações:
Obviamente deve-se observar se o idioma do sistema é ingles ou português. Adaptando o nome de usuário administrator, ou administrador no script, e escolhendo a senha desejada no campo objUser.SetPassword “senha”
Caso a política de senhas do domínio necessite senha com caracteres especiais, obviamente a senha colocada no script também deve contar caracteres especiais, caso contrário retornará erro na linha 4.
Para tornar a gpo mais segura, é interessante colocar o script vbs num compartilhamento oculto ou usar o utilitário srcenc pra transformar o vbs num binário, dessa forma não aparece a senha que está no script. pra fazer isso é só executar o seguinte:
Código: Selecionar todos
srcenc script.vbs script.vbeÉ isso !
