For varBuffSize = 8 to 1472 step 8

Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_PingStatus where Address='" & strDestAddress & "' and BufferSize=" & varBuffSize & " and NoFragmentation=true and TimeOut=700" ,,48)

For Each objItem in colItems

    Select Case objItem.StatusCode

        Case 0

          WScript.Echo "Ответ на ping-запрос за " & objItem.ResponseTime & " миллисекунд, TTL = " & objItem.ResponseTimeToLive & ", размер пакета ответа " & objItem.ReplySize

        Case 11001

          WScript.Echo "Слишком маленький буфер" & ". Buffer Size is: " & varBuffSize

        Case 11002

          WScript.Echo "Конечная сеть не доступна" & ". Buffer Size is: " & varBuffSize

        Case 11003

          WScript.Echo "Конечный хост не доступен" & ". Buffer Size is: " & varBuffSize

        Case 11004

          WScript.Echo "Протокол не доступен" & ". Buffer Size is: " & varBuffSize

        Case 11005

          WScript.Echo "Конечный порт не доступен" & ". Buffer Size is: " & varBuffSize

        Case 11006

          WScript.Echo "Недостаточно ресурсов" & ". Buffer Size is: " & varBuffSize

        Case 11007

          WScript.Echo "Неверная опция IP" & ". Buffer Size is: " & varBuffSize

        Case 11008

          WScript.Echo "Аппаратная ошибка" & ". Buffer Size is: " & varBuffSize