WScript.Echo strComputer & " не отвечает на ping."

    Else

    WScript.Echo strComputer & " отвечает на ping."

    End If

Else

    WScript.Echo strComputer & " не отвечает на ping."

End If

Положение существенно поменялось с выходом Windows XP и Windows Server 2003 – теперь нет необходимости вызывать консольную команду ping. В нашем вооружении появился класс Win32_PingStatus. Запрос к этому классу позволяет выполнить это процедуру гораздо быстрее и проще. Этот способ не зависит от локализации операционной системы и предоставляет подробный отчет о статусе посланного ICMP-пакета и ответа на него.

Помимо мониторинга доступности хоста по сети, незаменимый класс Win32_PingStatus позволяет решать и множество других задач. В приведенном примере (см. листинг 4) мы определяем MTU (Maximum Transmission Unit) трассы от нашего хоста к хосту удаленному. Для тех, кто не знаком с понятием MTU стека TCP/IP, я поясню: MTU – это максимальный размер пакета, который может быть передан по маршруту (трассе) от одного хоста до другого, не будучи фрагментирован (разрезан на части для последующей сборки) ни одним промежуточным маршрутизатором.

Отмечу, что этот сценарий может быть весьма полезен в задачах оптимизации производительности сети и диагностике проблем.

Листинг 4. Определение максимального размера фрейма (MTU) трассы

strComputer = "."

Set objWMIService = GetObject("winmgmts:\" & strComputer & " ootCIMV2")

strDestAddress = "www.ya.ru"

If WScript.Arguments.Count > 0 Then

   strDestAddress = WScript.Arguments(0)

End If

WScript.Echo "Посылаем ICMP-пакеты хосту: " & strDestAddress & " различного размера..."

varMaxPacket = 0