Помогите автоматизировать скрипт перезагрузки модема
Есть VBS скрипт на перезагрузку модема. Требуется автоматизировать запуск этого скрипта каждые полчаса. Помогите, плз.
Код:
Set oShell = CreateObject("WScript.Shell")
oShell.run"telnet 192.168.1.1"
WScript.Sleep 5000
oShell.SendKeys"pass"
oShell.SendKeys("{Enter}")
WScript.Sleep 1000
oShell.SendKeys"wan adsl reset"
oShell.SendKeys("{Enter}")
WScript.Sleep 1000
oShell.SendKeys"exit"
oShell.SendKeys("{Enter}")
oShell.SendKeys("{Enter}")
|
Стандартный планировщик разве не подходит?
|
Цитата:
Цитата DmitriiV
Стандартный планировщик разве не подходит? »
|
Нет, у меня с ним возникли проблемы на XP. Выдает ошибку 0x80070005: Отказано в доступ |
Цитата:
Цитата nail46
... Выдает ошибку...
|
При выполнении сценария? Если - да, то в какой именно строке? Если - нет, то в каком случае? |
Цитата:
Цитата DmitriiV
При выполнении сценария? Если - да, то в какой именно строке? Если - нет, то в каком случае? »
|
Ошибку выдает при создании учетной записи задания в планировщике windows. Но это мы уже "копаем" в другую сторону, а что на счет автоматизации моего скрипта? |
Так как Вы не можете воспользоваться стандартным планировщиком, напрашиваются два решения: задействовать какой-либо сторонний планировщик или добавить в сценарий цикл.
Пример для второго варианта:
Код:
Dim oShell
Set oShell = CreateObject("WScript.Shell")
Do
'---
oShell.run "telnet 192.168.1.1"
WScript.Sleep 5000
oShell.SendKeys "pass"
oShell.SendKeys "{Enter}"
WScript.Sleep 1000
oShell.SendKeys "wan adsl reset"
oShell.SendKeys "{Enter}"
WScript.Sleep 1000
oShell.SendKeys "exit"
oShell.SendKeys "{Enter}"
oShell.SendKeys "{Enter}"
'---
If Hour(Time) > 18 Then
Exit Do
Else
WScript.Sleep 1800000
End If
Loop
Set oShell = Nothing
WScript.Quit 0
В примере сценарий будет заканчивать работу после 18:00. |
Время: 03:38.
© OSzone.net 2001-
