Ping с датой и временной меткой на каждый пакет.
Ping — утилита для проверки соединений в сетях на основе TCP/IP, а также обиходное наименование самого запроса. Программа "Ping" является одним из основных диагностических средств в сетях TCP/IP и входит в поставку всех современных сетевых операционных систем.
Внимание: Во время работы скрипта результат работы последнего не отображается на экране, вся информация о работе в Log-файле.
Код VBS скрипта: (Copy & Past in NotePad & Save PingTime.vbs)
Option explicit
' conHost - адрес хоста для Ping'a
' conCheckInterval - временной интервал опроса Ping'a
const conHost = "belvit.com", conCheckInterval = 1000
' создаём объект:
dim soWshShell : set soWshShell = CreateObject("WScript.Shell")
wScript.Quit Main()
function WriteLog(strText)
wScript.Stdout.WriteLine FormatDateTime(Date+Time, 0) & " " & strText
end function
function GetHostStatus(strHost)
dim oPing : set oPing = soWshShell.Exec("ping -n 1 " & strHost)
dim strOut : strOut = ""
do
wScript.Sleep 100
if not oPing.Stdout.AtEndOfStream then
strOut = strOut & oPing.Stdout.ReadAll
end if
loop until oPing.Status = 1
dim oRegExp : set oRegExp = new RegExp
oRegExp.IgnoreCase = true
oRegExp.Pattern = "[^ ]+:.+TTL=[^\r\n]+"
dim oMatches : set oMatches = oRegExp.Execute(strOut)
if oMatches.Count > 0 then
GetHostStatus = oMatches(0).Value
else
GetHostStatus = ""¤ «Ґл© е®бв Ґ ¤®бвгЇҐ"
end if
end function
function Main()
do
WriteLog(GetHostStatus(conHost))
wScript.Sleep(conCheckInterval)
loop
end function
Запуск скрипта: (Copy & Past in NotePad & Save PingTime.cmd)
cScript //nologo PingTime.vbs>PingTime.log (#При каждом запуске скрипта файл PingTime.log обнуляется и перезаписывается)
cScript //nologo PingTime.vbs>>PingTime.log (#При каждом запуске скрипта файл PingTime.log обновляется...новые данные о состоянии Ping'a дописывается в конец данного файла).
//NoLogo - запрет на отображение сторонней информации в Log-файле не относящиеся к данному скрипту, например, баннер от Microsoft. //NoLogo - Prevent logo display: No banner will be shown at execution time.
Результат работы скрипта:
Результатом работы скрипта является Log-файл "PingTime.log" Пример фрагмента Log-файла "PingTime.log" в кодировке DOS:
04.10.2011 16:52:16 195.216.243.2: число байт=32 время=92мс TTL=55
04.10.2011 16:52:17 195.216.243.2: число байт=32 время=96мс TTL=55
04.10.2011 16:52:19 195.216.243.2: число байт=32 время=94мс TTL=55
04.10.2011 16:52:20 195.216.243.2: Удаленный хост не доступен
04.10.2011 16:52:21 195.216.243.2: Удаленный хост не доступен
04.10.2011 16:52:22 195.216.243.2: число байт=32 время=95мс TTL=55
04.10.2011 16:52:24 195.216.243.2: число байт=32 время=95мс TTL=55
04.10.2011 16:52:25 195.216.243.2: число байт=32 время=93мс TTL=55
| 
