Segue um script que faz isso ..... basta criar um arquivo chamado Computers.txt no mesmo diretório que o script estiver .... no mesmo diretório ele irá gerar o arquivo LogChangePassword.log.
on error resume next
Dim oNet, Computers, Lercomp, Arquivos
Public Sub Grava(comp)
Const ForAppending = 8
arq_ext = "LogChangePassword.log"
Set fso = CreateObject("Scripting.FileSystemObject")
Set arq_int = fso.OpenTextFile(arq_ext , ForAppending, true)
data = now()
arq_int.write (data & " - " & comp & vbcrlf)
arq_int.close
End Sub
Set arquivos = CreateObject("Scripting.FileSystemObject")
Set Computers = arquivos.OpenTextFile("Computers.txt")
Do Until computers.AtEndOfStream
lercomp = Computers.ReadLine
aMachines = split(lercomp, ";")
For Each machine in aMachines
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._
ExecQuery("select * from Win32_PingStatus where address = '"_
& machine & "'")
For Each objStatus in objPing
If IsNull(objStatus.PrimaryAddressResolutionStatus) Or objStatus.PrimaryAddressResolutionStatus <> 0 Then
grava(lercomp & ";" & "Não Resolveu nome")
else
if IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
grava(lercomp & ";" & " Não responde PING")
else
call Changepassword(lercomp)
end if
End If
Next
Next
Loop
Function Changepassword(lercomp)
Set objUser = GetObject("WinNT://" & lercomp & "/administrator, user")
'*************************************Senha***********************************
objUser.SetPassword "SENHA"
objUser.SetInfo
grava(lercomp & ";" & " Senha alterada")
End Function
computers.close
