Запуск программы по заданой дате через VBS

[n_i_x]

Доброго времени суток всем!

Очень нужна ваша помощь. Никак не могу сам догнать, как сделать правильный vbs файл, который бы при запуске проверял текущую дату и сравнивал её с заданной и если совпадало, то запускал программу.

В общем нужно сдеать запуск программы через vbs в заданную дату.

Спасибо за ранее

[Iska]

Option Explicit

Dim dtSchedule
Dim dtNow

dtSchedule = DateSerial(2011, 10, 22)
' Или:
' dtSchedule = CDate("22.10.2011")
' dtSchedule = #10/22/2011#
' dtSchedule = DateValue("22 октября 2011")

dtNow = Now()

If DateDiff("d", dtSchedule, dtNow) = 0 Then
WScript.Echo "Даты совпали"
' Ваш код здесь
Else
' Nothing to do
End If

WScript.Quit 0