VBScript - Lista de IPs ATIVOS

Esse script é uma sequência para o script anterior. Ele usa o arquivo criado pelo script 1 com a lista de IPs de uma determinada rede, e testa cada um para saber se ele está ativo na rede ou não.

Então ele cria um arquivo dentro da unodade c:\ chamado IpsAtivos.txt contendo APENAS os IPs que estão ativos na rede.

SCRIPT:

dim IP 'recebe o IP
dim Resultado 'Recebe o resultado do ping
dim i 'usado nos contadores
dim arquivo1 'Lista de IPs a verificar
dim arquivo2 'Lista de IPs Ativos

arquivo1 = "C:\ListaIp.txt"
arquivo2 = "C:\IpsAtivos.txt"


' Abrindo o arquivo que tem a lista de IPs
Set objArq1 = CreateObject("Scripting.FileSystemObject")
Set EArq1 = objArq1.OpenTextFile(arquivo1, 1, True)

' Criando arquivo que receberá a lista de IPs ativos
Set objArq2 = CreateObject("Scripting.FileSystemObject")
Set EArq2 = objArq2.OpenTextFile(arquivo2, 8, True)

Do Until EArq1.AtEndOfStream
IP = Earq1.ReadLine

Set winShell = WScript.CreateObject("WScript.Shell")
Set WshExec = winShell.Exec("ping -n 3 -w 2000 " & IP)
Resultado = LCase(WshExec.StdOut.ReadAll)
If InStr(Resultado, "reply from") Then
Earq2.WriteLine(IP)
Elseif InStr(Resultado, "resposta de") Then
Earq2.WriteLine(IP)
End if

Loop