VBSには質問スレがないようですし、ココにはどちらにも精通されてる方が多いようなので
若干スレ違いとは思いますが、質問させてください。
ページを読み込んだ後、2秒後に"testOK"を表示させる為に

Dim lngWait
TestSetTime()

Sub TestSetTime()
　If lngWait < 2000 then
　　 setTimeout "TestSetTime()", 1000
　　 lngWait = lngWait + 1000
　Else
　　 Msgbox "testOK"
　End if
End Sub

以上のようなスクリプトを書いて保存し
CreateElement("script")でつくったスクリプトタグの
srcに指定し、appendChildで挿入したところ、
ページ表示後、2秒後に"testOK"のメッセージを出すことができました。

次に、これを直接スクリプトタグに書いたページを読み込んだところ
1度目の 「lngWait = lngWait + 1000」までは動くのですが
TestSetTime()が再帰呼び出しされず、"testOK"が表示されません。
私の乏しい知識では理由がわからないのですが、
おわかりになる方、是非ご教授下さい。よろしくお願いします。