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"
