PING С ЗАПИСЬЮ В ФАЙЛ И ОТОБРАЖЕНИЕМ ВРЕМЕНИ.

Всем здравствуйте. Столкнулся с ситуацией когда надо было весь PING залогировать с отображением времени. Как я ни бился как не старался но время никак не хотело прописываться в логах PING.

Но на просторах интернета наткнулся на очень хороший и скрипт, выполнит PING, сохранит в лог и покажет время каждого пинга.

Скрипт:

option explicit

‘ conHost — адрес хоста для слежения

‘ conCheckInterval — временной интервал

const conHost = «8.8.8.8», conCheckInterval = 1000

‘ создаём объект:

dim soWshShell : set soWshShell = CreateObject(«WScript.Shell»)

WScript.Quit Main()

function WriteLog(strText)

WScript.Stdout.WriteLine FormatDateTime(Time(), vbLongTime) & » » & strText

end function

function GetHostStatus(strHost)

dim oPing : set oPing = soWshShell.Exec(«ping -n 1 » & strHost)

dim strOut : strOut = «»

do

ДАЛЕЕ НА САЙТЕ SETIWIK.RU