By 22 Marzo 2016 0 Comments

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.


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




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
Posted in: Vbscript, Windows Server

About the Author:

shared on wplocker.com