[Loran_rus]

Могу предложить

скрипт на VBS

Код:

On Error Resume Next 
Call Main
Private Sub Main
Set objShell = WScript.CreateObject("WScript.Shell")
Set objExecObject = objShell.Exec("Cmd /c ping -n 5 www.ya.ru")

Do While Not objExecObject.StdOut.AtEndOfStream
	strText = objExecObject.StdOut.ReadLine()
	If Instr(strText, "(100% ") > 0 Then
		objResult = objShell.Run ("Cmd /c Copy 111>Com3" , 0, True)
	End If
Loop
End Sub

WScript.Sleep 600000	'время = 10мин * 60сек * 1000
Call Main

[Iska]

Loran_rus, вроде «echo» просили …

Copy 111>Com3 »

[Loran_rus]

Iska, А это я как художник, "так вижу"
думаю человек задействовавший реле через ком порт для управления питанием модема в состоянии заменить команду под собственные нужды

[Hunterus]

Loran_rus, вроде «echo» просили … Цитата Loran_rus: Copy 111>Com3 » »

Это особой роли не играет, главное чтоб Com порт открылся и закрылся при этом реле разомкнет цепь питания модема

Могу предложить скрипт на VBS »

попробовал Ваш скрипт, поставил WScript.Sleep 6000 он запускается 2 раза в подряд отрабатывает и все. и возможно ли чтоб как нибудь отображался процесс его работы??

[Loran_rus]

попробовал Ваш скрипт, поставил WScript.Sleep 6000 он запускается 2 раза в подряд отрабатывает и все

сильно изменяюсь действительно вставил из буфера еще сырую версию

вот полностью рабочая

Код:

Set objShell = WScript.CreateObject("WScript.Shell")
Call Main
Private Sub Main
Set objExecObject = objShell.Exec("Cmd /c ping -n 5 www.ya.ru")
Do While Not objExecObject.StdOut.AtEndOfStream
	strText = objExecObject.StdOut.ReadLine()
	If Instr(strText, "(100% ") > 0 Then
		objResult = objShell.Run ("Cmd /c Echo 111 >Com3" , 0, True)
		Call WaitTime
	End If
Loop
End Sub
Call WaitTime
Private Sub WaitTime
WScript.Sleep 600000	'время = 10мин * 60сек * 1000
Call Main
End Sub

возможно ли чтоб как нибудь отображался процесс его работы??

Замените objResult = objShell.Run ("Cmd /c Echo 111 >Com3" , 0, True) на запуск приложения или открытие документа, ну или целиком строку.
Если желаете посмотреть работу команды пинг вот тот же скрипт с записью в

текстовый файл

Код:

Dim fso, f1, ts
Const ForWriting = 2
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile ("pingtest.txt")
Set f1 = fso.GetFile("pingtest.txt")
Set ts = f1.OpenAsTextStream(ForWriting, True)

Set objShell = WScript.CreateObject("WScript.Shell")
Call Main
Private Sub Main
Set objExecObject = objShell.Exec("Cmd /c ping -n 5 www.ya.ru")
Do While Not objExecObject.StdOut.AtEndOfStream
	strText = objExecObject.StdOut.ReadLine()
ts.WriteLine strText
	If Instr(strText, "(100% ") > 0 Then
		objResult = objShell.Run ("Cmd /c Cmd /c Echo 111 >Com3" , 0, True)
		Call WaitTime
	End If
Loop
ts.Close
End Sub
Call WaitTime
Private Sub WaitTime
WScript.Sleep 600000	'время = 10мин * 60сек * 1000
Call Main
End Sub

[Hunterus]

все таки хочется на bat скрипт запустить
сижу вот из этого переделываю:

for /f "tokens=8 delims== " %%i in ('ping -n 1 google.ru ^| findstr /i "TTL"') do set n=%%i
if defined n (goto n1)
echo нет пинга
exit /b
:n1
set /a n=%n:~0,-2%
if %n% gtr 100 start "" notepad.exe




пока ничего не получается

[Loran_rus]

А в CMD это будет выглядеть так

Код:

@Echo Off
Ping -n 5 ya.ru>nul
If %ErrorLevel% GTR 0 Echo 111>Com3

Я не любитель использовать скрипты которые постоянно висят и ждут чтобы раз в ХХ минут выполнить какое то действие, для запуска приложений и процессов по времени или через определенный промежуток есть куча инструментов, собственно говоря вы видели что получается "Индийский код" когда я зацикливаю простую и понятную процедуру с ожиданием и перезапуском.

Так что реализацию запуска через 10 минут оставляю на ваше усмотрение

Код взят от сюда

[Freem]

Написал простую пинговалку, выводящее сообщение о результатах:

Код:

@echo off
ping -n 1 %IP%
echo
if %errorlevel%==0 (
echo =================================
echo =======TEXT 1=======
echo =================================
)
if %errorlevel%==1 (
echo =================================
echo ==========TEXT 2==========
echo =================================
)
pause

Но нужно чтобы TEXT 2 выводился, если пинг отвечает также полученными пакетами "заданный узел недоступен". Иначе у меня везде первый текст выходит.

[Dragokas]

Freem, для этого случая в предыдущем примере как раз использовалась команда
ping -n 1 %IP% | findstr /i "TTL"