[Dragokas]

Т.е. он имел в виду, что иногда, даже если сайт не пингуется, команда пинг все равно выдаст успешный результат - и это приведет к перезапуску модема в написанных нами скриптах. Нужно все лишь добавить конец команды пинг это |Find "TTL="
Рассмотрим пример:
1) Ping выдает это:
"Сбой команды ......."
и передает, что завершено все без ошибок ---> скрипт перезагружает модем.

Мы дописываем |Find "TTL=", и теперь уже проверяется успешность выполнения именно этой команды.
Find ищет наличие строки "TTL=" в отчете, выданном предыдущей командой

Знак | как раз его и передает.

--> команда выполнится с ошибкой (строка "TTL="не найдена) ---> скрипт не будет пускать перезагрузку.

Код:

>ping 8.8.8.8
Обмен пакетами с 8.8.8.8 по с 32 байтами данных:
Ответ от 8.8.8.8: число байт=32 время=64мс TTL=46
Ответ от 8.8.8.8: число байт=32 время=63мс TTL=46
...

>ping 8.8.8.8 | Find "TTL="&&echo Privet!
...
Privet!

Символ && - следующая за ним команда выполняется, если предыдущая (перед &&) выполнена без ошибок (%errorlevel% = 0)
Символ || - следующая за ним команда выполняется, если предыдущая (перед &&) выполнена с ошибкой (%errorlevel% <> 0)

[YouHim]

Опять прошу помощи!
Решил начать все сначала. Пишу скрипт, который пингует 3 хоста. Если все 3 не отвечают - перезагружает софт и модем.

Собственно код

Код:

iPing =   Ping("195.195.195.195")
	iPing1 = Ping1("195.195.195.195")
	iPing2 = Ping2("195.195.195.195")
	strComputer = "."


Set WshShell = WScript.CreateObject("WScript.Shell")
	Command ="d:\Portable\Script\restart_modem\devcon.exe disable USB\VID_1076*"
	Command1="d:\Portable\Script\restart_modem\devcon.exe enable USB\VID_1076*"
	Command2="d:\Portable\Script\restart_modem\devcon.exe restart USB\VID_1076*"
	strProcessKill = "'SW_WiMaxCM.exe'" 
	strProcessStart="d:\Portable\Script\restart_modem\SW_WiMaxCM.lnk"


Function Ping (strTarget)
  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & strTarget & "'AND Timeout=10000 AND BufferSize=1")


  For Each objPing in colPings
    Ping = objPing.StatusCode
  Next
End Function

If iPing=0 Then
WScript.Quit
end if

Function Ping1 (strTarget)
  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & strTarget & "'AND Timeout=10000 AND BufferSize=1")

 For Each objPing in colPings
    Ping1 = objPing.StatusCode
  Next
End Function

If iPing1=0 Then
WScript.Quit
end if

Function Ping2 (strTarget)
  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
  Set colPings = objWMIService.ExecQuery ("Select * From Win32_PingStatus where Address = '" & strTarget & "'AND Timeout=10000 AND BufferSize=1")

  For Each objPing in colPings
    Ping2 = objPing.StatusCode
  Next
End Function

If iPing2=0 Then
WScript.Quit
end if

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _ 
& strComputer & "\root\cimv2") 

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next 

Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" _
    & ".\root\cimv2")
Set colListOfServices = objWMIService.ExecQuery _
 ("Select * from Win32_Service Where Name ='GCTWiMaxService'")
For Each objService In colListOfServices
    objService.StopService    
	WshShell.Run Command
	WScript.Sleep 2000
	WshShell.Run Command1
	WScript.Sleep 5000
	WshShell.Run Command2
	t = now()
	Set FSO = CreateObject("Scripting.FileSystemObject") 
    	Set f = FSO.OpenTextFile("log.txt", 8, True) 
    	f.WriteLine t 
    	objService.StartService
	WshShell.Run strProcessStart
	Wscript.Echo  "GCT WiMAX USB Network Device restarted"

Next

Столкнулся с одной проблемой. Если модем отсутствует, то скрипт выдает вот такую ошибку

Код:

C:\Users\admin\AppData\Roaming\WMICodeCreator\MyWMIQuery_Script.vbs(20, 3) (null): 0x80041001

вот в этом месте:

Код:

For Each objPing in colPings
    Ping = objPing.StatusCode

Мне же нужно, чтобы при отсутствии модема тоже срабатывала перезагрузка. Помогите решить задачу.

[Инсульт]

Вот так вроде работает как надо:

Код:

cmdow @ /HID
@Echo Off

Set /A WaitTime=120*1
Set Address=ya.ru -n 15

:Loop
Ping %Address%
If ERRORLEVEL 1 call :RESTART
Ping -n %WaitTime% 127.0.0.1 > Nul
GoTo Loop

:RESTART
taskkill /f /im SW_WiMaxCM.exe > Nul
net stop GCTWiMAXService
devcon disable USB\Class_0a
devcon enable USB\Class_0a
REM devcon disable USB\VID_1076*
REM devcon enable USB\VID_1076*
net start GCTWiMAXService
start /D "C:\Program Files\FreshTel\" SW_WiMaxCM.exe > Nul
exit /b

[mrjok]

2 Инсульт:

a) cmdow внешняя утилита, заметил позже
б) Ping %Address% в цикле приводит к ненужному постоянному окну (в XP)
в) нельзя ли вообще без :Loop - проверили и вышли, а повторный запуск через назначенные задания?

[Инсульт]

a) cmdow внешняя утилита, заметил позже б) Ping %Address% в цикле приводит к ненужному постоянному окну (в XP) в) нельзя ли вообще без :Loop - проверили и вышли, а повторный запуск через назначенные задания? »

a) Иначе никак, если это не устраивает можно воспользоваться BAT компилятором, получится exe файл который будет работать как сервис.
в) В этом случае нужно делать планировщик, либо стороннее ПО, или воспользоваться встроенным в систему.

[Инсульт]

Не поленился написал простенькую программку.
Запускает этот скрипт один раз в 5 минут, а не постоянно пингует.
Скрипт будет работать в скрытом режиме (без окна) как и хотел mrjok

Скрипт теперь должен быть такой:

Код:

@Echo Off

Set Address=ya.ru -n 8

Ping %Address%
If ERRORLEVEL 1 call :RESTART
GoTo EXIT

:RESTART
taskkill /f /im SW_WiMaxCM.exe > Nul
net stop GCTWiMAXService
devcon disable USB\Class_0a
devcon enable USB\Class_0a
net start GCTWiMAXService
start /D "C:\Program Files\FreshTel\" SW_WiMaxCM.exe > Nul
exit /b

:EXIT
exit

[mrjok]

2 Инсульт:

1) спасибо
2) для devcon как уточнить, что USB\Class_0a

[Sergeev]

то Инсульт:

Как прописать запуск скрипта в шедулер,планируется поместить шедулер в автозагрузку

[yrec]

Доброго времени суток! Помогите с скриптом! Задача пинговать определенный адрес допустим 192.168.1.100 нужно послать 10 запросов эсли же на 10 запросов нет ответа перезагрузить сервер, если запросы в норме повторить процедуру через 10 минут!

Если конечно возможно то чтобы в момент перезапуска выскакивало окно комп будет перезагружен через 1 минуту, для отмены нажмите допустим "1" не нажал знач перезагруз.

Очень прошу помогите!

[art_record_video@vk]

Не поленился написал простенькую программку. Запускает этот скрипт один раз в 5 минут, а не постоянно пингует. Скрипт будет работать в скрытом режиме (без окна) как и хотел mrjok »

Не поленился написал простенькую программку. Запускает этот скрипт один раз в 5 минут, а не постоянно пингует. Скрипт будет работать в скрытом режиме (без окна) как и хотел mrjok »

Не совсем понял, для чего нужен файл Шедулер.ехе, на вин7 64х не запускаеться.
У меня вопрос другого плана, мне надо чтоб скрипт проверял как наличие интернета, так и работоспособность батника, который вызывает работу програмки, иногда эта програмка вылетает (или подвисает или просто вылетает, особенно когда нету интернета долгое время), и хотелось бы , чтоб скрипт перезапускал тот батник, котоырй вылетатет.

То есть два условия проверки, 1 - интернет, 2- работает ли батник.

Как убить процесс и как запустить, - это я логическим путем установил, а вот как сделать проверку программы ? Здесь мозгов не хватает. Работа программы заключаеться в том, что должен работать CMD , который связаный через интернет с сайтом. Если интернет пропадает, то CMD может "вылетить".