[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.