CMD/BAT

Anonymоus · Отправлено: **20:48, 27-05-2012** | #11

Iska,

Код:

Протокол          : ICMP
Локальный адрес   : 10.3.3.230
Удалённый адрес   : xx.xx.xx.xxx
Пакеты            : 1  {0 ; 1}
Объём данных      : 60 байт  {0 ; 60}
Общий размер      : 176 байт  {0 ; 176}
Время захвата     : 27.05.2012 19:42:41:078
Время последнего пакета: 27.05.2012 19:42:41:078
Данные: 
00000000  45 00 00 3C 15 67 00 00  7F 01 75 C8 0A 03 03 E6   E..<.g.. .u..... 
00000010  5C A8 46 01 08 00 34 5C  03 00 16 00 61 62 63 64   \.F...4\ ....abcd 
00000020  65 66 67 68 69 6A 6B 6C  6D 6E 6F 70 71 72 73 74   efghijkl mnopqrst 
00000030  75 76 77 61 62 63 64 65  66 67 68 69               uvwabcde fghi

CyberMuesli · Отправлено: **23:44, 27-05-2012** | #12

Цитата Anonymоus:

Ping некорректно возвращает ErrorLevel в некоторых случаях. »

Спасибо, Вы правы. Я смог смоделировать эту ситуацию.

На вайфайке есть host и guest зона, между ними настроена маршрутизация
Компьютер в host зоне, телефон в guest зоне
Телефон помещаем в бидон, бидон в кастрюлю, открываем и закрываем крышку кастрюли, пингуем, пинги то есть, то нет
При этом сообщения об ошибке могут быть разные: узел недоступен, превышен интервал ожидания запроса
При этом errorlevel 0

find "TTL" действительно самый дешевый способ. Но мне он не нравится тем, что если из 10 пингов 1 пройдет, эта команда нам скажет, что всё в порядке, тогда как цель такого мониторинга выявить проблемы.

Набросал вот. Алгоритм следующий: мы просим find не просто найти TTL, а подсчитать количество таких строк. Эту цифру мы можем считать и сравнить с той, которую передавали ранее пингу в параметре -n. Если хотя бы один пинг не прошел - операция считается неудачной

Код:

@echo off

setlocal enabledelayedexpansion

call :TestPing[] -debug %1 %2

echo ----------- errorlevel: %errorlevel% ----------
goto :eof



:TestPing[]
:: Parameters: [-debug] IP [PingCount]
if "%1"=="-debug" (
   set TestPing.Debug=Yes
   shift
)
set TestPing.PingCount=%2
if "%TestPing.PingCount%"=="" (
   set TestPing.PingCount=2
)

set TestPing.Out2=B%random%.tmp
set TestPing.Out3=C%random%.tmp

>%TestPing.Out2% (ping -n %TestPing.PingCount% %1)
set TestPing.PingErrorLevel=!errorlevel!
>%TestPing.Out3% (find /C "TTL=" <%TestPing.Out2%)

for /f %%i in (%TestPing.Out3%) do (
    set TestPing.SuccessCount=%%i
)

if %TestPing.PingCount%==%TestPing.SuccessCount% (
   set TestPing.Result=Yes
   if %TestPing.PingErrorLevel%==0 (
      set TestPing.PingErrorLevelResult={valid}
   ) else (
      set TestPing.PingErrorLevelResult={INVALID}
   )
) else (
   if not %TestPing.PingErrorLevel%==0 (
      set TestPing.PingErrorLevelResult={valid}
   ) else (
      set TestPing.PingErrorLevelResult={INVALID}
   )
)

if "%TestPing.Debug%"=="Yes" (
   type %TestPing.Out2%
   echo ------------- results: -------------
   echo Ping count     :      %TestPing.PingCount%
   echo Success count  :      %TestPing.SuccessCount%
   echo Ping errorLevel:      %TestPing.PingErrorLevel% %TestPing.PingErrorLevelResult%
   if "%TestPing.Result%"=="Yes" (
      echo Ping is successful
   ) else (
      echo There is ping error
   )
)

del %TestPing.Out2%
del %TestPing.Out3%

if "%TestPing.Result%"=="Yes" (
   exit /b 0
)
exit /b 1
goto :eof

Результаты работы в эксперименте с бидоном
192.168.0.1 - wifi роутер в host зоне, 192.168.1.100 - телефон в guest зоне

Цитата:

C>TestPing.bat 192.168.1.100 15

Обмен пакетами с 192.168.1.100 по 32 байт:

Ответ от 192.168.0.1: Заданный узел недоступен.
Ответ от 192.168.0.1: Заданный узел недоступен.
Ответ от 192.168.1.100: число байт=32 время=2205мс TTL=64
Ответ от 192.168.1.100: число байт=32 время=5мс TTL=64
Превышен интервал ожидания для запроса.
Превышен интервал ожидания для запроса.
Превышен интервал ожидания для запроса.
Превышен интервал ожидания для запроса.
Превышен интервал ожидания для запроса.
Ответ от 192.168.1.100: число байт=32 время=12мс TTL=64
Ответ от 192.168.1.100: число байт=32 время=408мс TTL=64
Ответ от 192.168.1.100: число байт=32 время=228мс TTL=64
Ответ от 192.168.1.100: число байт=32 время=107мс TTL=64
Ответ от 192.168.1.100: число байт=32 время=109мс TTL=64
Ответ от 192.168.1.100: число байт=32 время=325мс TTL=64

Статистика Ping для 192.168.1.100:
Пакетов: отправлено = 15, получено = 10, потеряно = 5 (33% потерь),
Приблизительное время приема-передачи в мс:
Минимальное = 5мсек, Максимальное = 2205 мсек, Среднее = 339 мсек
------------- results: -------------
Ping count : 15
Success count : 8
Ping errorLevel: 0 {INVALID}
There is ping error
----------- errorlevel: 1 ----------

Iska · Отправлено: **00:07, 28-05-2012** | #13

, Anonymоus, чувствую себя тем неграмотным волком из анекдота про волка, лошадь и её задние копыта.

А хоть что говорит такой:

код (чтобы хоть немного представлять ситуацию, и как себя в ней вести)?

CyberMuesli · Отправлено: **00:20, 28-05-2012** | #14

Цитата Iska:

А хоть что говорит такой:
читать дальше »
код (чтобы хоть немного представлять ситуацию, и как себя в ней вести)? »

у меня зацикленный код для телефона в кастрюле + закрытой потом открытой крышкой говорит следующее

192.168.1.100 Off Status code: 11010
192.168.1.100 Off Status code: 11003
192.168.1.100 Off Status code: 11010
192.168.1.100 Off Status code: 11003
192.168.1.100 Off Status code: 11010
192.168.1.100 On Response time: 5 ms
192.168.1.100 On Response time: 232 ms
192.168.1.100 On Response time: 186 ms
192.168.1.100 On Response time: 212 ms
192.168.1.100 On Response time: 12 ms
192.168.1.100 On Response time: 218 ms

зы. начало цикла надо делать до CreateObject, я правильно понял?

Anonymоus · Отправлено: **07:52, 28-05-2012** | #15

Iska,

Код:

192.168.70.1	Off	Status code: 11002

CyberMuesli, как вариант, использовать вот такую конструкцию, где будет дополнительно проверяться и наличие потерь:

Код:

Set IP=192.168.70.1&Set i=3
For /F %%I In ('Ping -n %i% %IP%^|Find /C "TTL="') Do (If %%I==%i% Echo Пинг прошел, потерь нету)

Из минусов - слишком громоздко, cтоит использовать лишь там, где процент потерь при пинге действительно нужно учитывать.

Отредактировал второй пост, поправил скрипт, чтобы он учитывал частично прошедший пинг и добавлял статус "Unstable connection" в таком случае.

Iska · Отправлено: **08:47, 28-05-2012** | #16

CyberMuesli, можно так:

вынеся собственно подключение к Wbem за рамки цикла.

Anonymоus, спасибо, ясно. Статус именно тот, что Вы приводили выше на скриншоте:

Цитата:

11002 Destination Net Unreachable

(Win32_PingStatus class). Стало быть, будем знать про такую особенность «ping.exe».

Одно только замечание по коду со скриншота…

Iska · Отправлено: **09:04, 28-05-2012** | #17

Anonymоus, порылся немного. Да, похоже Вы совершенно правы. Вон и Симон рекомендует пользовать исключительно фильтр на TTL (а для полной ясности и вовсе проверять реальную доступность конечного адреса ажник в четыре шага, начиная с localhost и последовательно углубляясь по маршруту): Ping.

Ещё раз спасибо. Будем знать.

CyberMuesli · Отправлено: **10:31, 28-05-2012** | #18

Цитата Iska:

вынеся собственно подключение к Wbem за рамки цикла. »

а, ну да

Цитата Iska:

Дело в том, что «Variable» в этом случае раскрывается до исполнения строки команд »

плюсану

Dreamer_UFA · Конфигурация компьютера

Уважемые, возник такой вопрос.
Как можно добавить в скрипт предложенный Anonymous использование переменных.
Так как филиалы разные то и ип адреса тоже. Хотелось бы что бы в тело не лезли.... а прописали где нибудь типа settings.ini.
Ну а сам батник конвертнуть в com или exe....

не силен в скриптовых языках... мозг сломал уже

Anonymоus · Отправлено: **12:13, 28-05-2012** | #20

Dreamer_UFA, сам скрипт:

Код:

@Echo Off
SetLocal EnableDelayedExpansion

If Not Exist "settings.ini" Echo Settings not found&Pause&Exit 1
For /F "usebackq eol=# tokens=1,2* delims==" %%A In ("settings.ini") Do (
	If Not "%%B"=="" Set %%A=%%B
)

Set MsgString="Status:"
:: Получаем набор адресов
Echo Wait...
For /F "tokens=2 delims==" %%A In ('Set Point_') Do (
	For /F "tokens=1,2 delims=:" %%B In ("%%A") Do (
		Echo Checking "%%B"
:: Проверяем на доступность сервера и стабильный пинг к нему
		For /F %%I In ('Ping -n %PacketCount% %%B^|Find /C "TTL="') Do (
			If %%I==%PacketCount% (Set Result=Online) Else (Set Result=Unstable connection)
			If %%I==0 Set Result=Not responding
		)
:: Составляем строку с данными для MsgBox'а
		Set MsgString=!MsgString! + vbCrLf + "%%C - !Result!"
	)
)
:: Генерируем и запускаем vbs-скрипт, выводящий данные
Echo MsgBox %MsgString%>"%Temp%\statusmsg.vbs"
"%Temp%\statusmsg.vbs"

Он же, упакованный в exe - http://dl.dropbox.com/u/11632454/dev/random/Pinger.rar

Содержимое файла настроек Settings.ini:

Код:

# Адреса серверов в формате IP:Отображаемое имя
Point_1=192.168.50.1:Billing server
Point_2=192.168.50.5:VPN server
Point_3=192.168.72.11:FTP
Point_4=127.0.0.1:Loopback
Point_5=209.85.148.113:Google.com
Point_6=87.250.250.203:Yandex.ru
# Количество пакетов для команды пинга
PacketCount=5