VBS/WSH/JS - Помогите автоматизировать скрипт перезагрузки модема

DmitriiV · Отправлено: **13:16, 11-10-2012** | #2

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

nail46 · Отправлено: **13:23, 11-10-2012** | #3

Цитата DmitriiV:

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

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

DmitriiV · Отправлено: **14:26, 11-10-2012** | #4

Цитата nail46:

... Выдает ошибку...

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

nail46 · Отправлено: **15:00, 11-10-2012** | #5

Цитата DmitriiV:

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

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

DmitriiV · Отправлено: **12:46, 12-10-2012** | #6

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

Код:

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.