VBScript. Как обрабатывать периодические события таймера

[AndAsh]

Помогите пожалуйста разобраться как обрабатывать периодические события
таймера. Необходимо выполнять определенные действия периодически (1
раз в 15 минут). Создаю скрипт:

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set MySink = WScript.CreateObject( _
"WbemScripting.SWbemSink","SINK_")

objWMIservice.ExecNotificationQueryAsync MySink, _
"SELECT * FROM __InstanceModificationEvent WITHIN 10 WHERE " & _
"TargetInstance ISA '__IntervalTimerInstruction'" & _
" AND TargetInstance.IntervalBetweenEvents = 900000" & _
" AND TargetInstance.SkipIfPassed = FALSE"


WScript.Echo "Waiting for events..."

While (True)
Wscript.Sleep(1000)
Wend

Sub SINK_OnObjectReady(objObject, objAsyncContext)
Wscript.Echo "__InstanceModificationEvent event has occurred."
End Sub

который должен запускать процедуру SINK_OnObjectReady через каждые 15
минут. Не работает.
Помогите разобраться в чем я не прав.
Заранее Вам благодарен.

[ACiD]

While (True) Wscript.Sleep(1000)

[Денис]

код, написанный наиболее неочевидным и неестественным из всех возможных способов

[alibek]

Непонятно, что тут непонятного.
Качество кода так себе, но смысл довольно прозрачный.

По сабжу: Пиши не Set MySink, а Set Sink.