Effettuare PING a una lista di Indirizzi e Salvare il Risultato

Può essere necessario dover effettuare un ping “ricorsivo” ad una lista di indirizzi (www.) e salvare il risultato in un file di testo per un controllo.
Questo script in VbScript può essere utile allo scopo.

[php]

On error Resume next

dim strInputPath, strOutputPath, strStatus

dim objFSO, objTextIn, objTextOut
strInputPath = "d:\serverlist.txt" '- location of input

strOutputPath = "d:\output.csv" '- location of output
set objFSO = CreateObject("Scripting.FileSystemObject")

set objTextIn = objFSO.OpenTextFile( strInputPath,1 )

set objTextOut = objFSO.CreateTextFile( strOutputPath )

objTextOut.WriteLine("computer,status")
Do until objTextIn.AtEndOfStream = True

strComputer = objTextIn.ReadLine
dim objShell,objPing

dim strPingOut, flag

set objShell = CreateObject("Wscript.Shell")

set objPing = objShell.Exec("ping " & strComputer)

strPingOut = objPing.StdOut.ReadAll
Cercato1 = instr(1, strPingOut, "[")

Cercato2 = instr(Cercato1, strPingOut, "]")

appoggio=Cercato2 - Cercato1

Ip= Mid(strPingOut,Cercato1+1,appoggio-1) '*******taglia

'wscript.echo IP
if IP <> "**.**.**.**" then

objTextOut.WriteLine(strComputer & "," & Ip)

End if
fPingTest = flag
loop
[/php]
Tramite l'ultima IF (**.**.**.**) è possibile escludere uno o più indirizzi dal comando.

Gli indirizzi da controllare devono essere posizionati in : d:\serverlist.txt
ping, ping ricorsivo, recursive ping, ping lista, ping più indirizzi, ping multiple addresses