Помогите автоматизировать скрипт перезагрузки модема

[nail46]

Есть 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]

Стандартный планировщик разве не подходит?

[nail46]

Стандартный планировщик разве не подходит? »
Нет, у меня с ним возникли проблемы на XP. Выдает ошибку 0x80070005: Отказано в доступ

[DmitriiV]

... Выдает ошибку...При выполнении сценария? Если - да, то в какой именно строке? Если - нет, то в каком случае?

[nail46]

При выполнении сценария? Если - да, то в какой именно строке? Если - нет, то в каком случае? »
Ошибку выдает при создании учетной записи задания в планировщике windows. Но это мы уже "копаем" в другую сторону, а что на счет автоматизации моего скрипта?

[DmitriiV]

Так как Вы не можете воспользоваться стандартным планировщиком, напрашиваются два решения: задействовать какой-либо сторонний планировщик или добавить в сценарий цикл.
Пример для второго варианта:
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.