Security of Computer Systems
Главная | Articles | Регистрация | Вход
 
Понедельник, 2018-12-10, 3:07 PM
Приветствую Вас Гость | RSS
Menu
Categories
Крякинг [3]
Кодинг [7]
Главная » Статьи » Кодинг » Кодинг

VBscript: Ping с датой и временной меткой на каждый пакет
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
Категория: Кодинг | Добавил: Rqas (2011-10-05)
Просмотров: 8506 | Рейтинг: 0.0/0 |
Всего комментариев: 0
Имя *:
Email:
Код *:
Login Form
Логин:
Пароль:
@Belvit.com

Category Search
Polls
Оцените мой сайт
Всего ответов: 780
Counter
Онлайн всего: 1
Гостей: 1
Пользователей: 0

52.91.185.49


Belvit.com © 2018