Script Alterar Senha ADM Local

Rem =============================================================
Rem
Rem Função: Fazer alteração de senha em varios computadores a partir de um arquivo texto.
Rem Autor: Marcus Vincius
Rem
Rem =============================================================

Rem =============================================================
Rem Prepara arquivo texto para leitura de dados
Rem =============================================================
rem on error resume next


Const ForReading = 1
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile _
("c:\scripts\computers.txt", ForReading)



Rem =============================================================
Rem Inicia troca de senha em cada maquina do arquivo .txt
Rem =============================================================

Do Until objTextFile.AtEndOfStream

strNextLine = objTextFile.Readline
arrServiceList = Split(strNextLine , ",")
strComputer = arrServiceList(0)


Set objUser = GetObject("WinNT://" & strComputer & "/Administrador, user")
objUser.SetPassword "SENHA"
objUser.SetInfo




Loop

objTextFile.close

wscript.echo "Processo Finalizado"