[решено] Переделать VBS в BAT - Запускаем ping и ожидаем завершения его работы

[root221]

Помогите переделать этот VBS в BAT

set WshShell = CreateObject("WScript.Shell")
'Запускаем ping и ожидаем завершения его работы
Return = WshShell.Run("ping 94.100.191.201 -n 2 -w 1", 0, true)
If Return=0 then
WScript.Echo "Интернет работает"
Else WScript.Echo "Интернет не работает"
End If


Надо что бы Bat создавал файл vbs c содержимыми функциями которые указаны выше в папке %temp% и запускал его.

И встроить его в эту функцию, вместо - goto test
If /I "%i%"=="test" (goto test)

[Anonymоus]

root221, указанные действия решаются на bat вот таким однострочником:


ping 94.100.191.201 -n 2 -w 1|Find /I "ttl=">nul&&Echo Интернет работает||Echo Интернет не работает

А встраивание в тот ваш скрипт с выбором пункта происходит вот так:

If /I %i%==test (ping 194.100.191.201 -n 2 -w 1|Find /I "ttl=">nul&&Echo Интернет работает||Echo Интернет не работает&GoTo :EOM)

[root221]

Спасибо