...
Set Win.Main=Me
...
Win.SetTimeout "Main.Control ",5000,"VBScript"
...

Option Explicit

Dim objUDF
Dim intIntervalID
Dim intTimeoutID
Set objUDF = new clsUDF

RunInConsoleMode()

intIntervalID = objUDF.SetInterval(GetRef("Interval_Test"), 1000)

intTimeoutID = objUDF.SetTimeout(GetRef("Timeout_Test"), 5000)

Sub Interval_Test()
	WScript.Echo "Sub Interval_Test called. " & Time
End Sub

Sub Timeout_Test()
	objUDF.ClearInterval intIntervalID
	objUDF.ClearTimeout intTimeoutID
	WScript.Echo "Timeout reached !"
End Sub

WScript.Sleep 6000

WScript.Echo "Complete.... Please, press <ENTER>"

WScript.StdIn.ReadLine

Class clsUDF
	Private document,_
			window
	
	Private Sub Class_Initialize()
		Set document = CreateObject("htmlfile")
		Set window = document.parentWindow
	End Sub
	
	Public Function SetTimeout(object, timeout)
		SetTimeout = window.setTimeout(object, timeout)
	End Function

	Public Function SetInterval(object, timeout)
		SetInterval = window.setInterval(object, timeout)
	End Function

	Public Sub ClearInterval(intervalId)
		window.clearInterval intervalId
	End Sub
	
	Public Sub ClearTimeout(timeoutId)
		window.clearTimeout timeoutId
	End Sub
	
End Class

Sub RunInConsoleMode()
	If InStr(1,WScript.FullName,"cscript",1) <= 0 Then 
		CreateObject("WScript.Shell").Run("cscript /nologo """ & WScript.ScriptFullName & """")
		WScript.Quit
	End If
End Sub

Option Explicit

Dim strLog, iReq

RunInConsoleMode()

RequestURL "http://www.planet-source-code.com"
RequestURL "http://www.google.ru"
RequestURL "http://www.rambler.ru"
RequestURL "http://www.yandex.ru"
RequestURL "http://www.vesti.ru"

Sub RequestURL(url)
	Dim objXHR, objCaller
	iReq = iReq + 1
	Set objCaller = new clsCaller
	Set objXHR = CreateObject("MSXML2.ServerXMLHTTP.6.0")
	With objCaller
		.Args = Array(objXHR, Now, url)
		Set .callback =  GetRef("xhr_onreadystatechange")
	End With
	WScript.Echo "Requesting """ & url & """"
	With objXHR
		.open "GET", url, true
		.setRequestHeader "Cache-Control", "no-cache"
		.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
		.onreadystatechange = objCaller
		.send
	End With
End Sub

Sub xhr_onreadystatechange(objXHR, requestStarted, url)
	Dim strReadyStateText
	Select Case objXHR.readyState
	Case 0
		strReadyStateText = "Unsent"
	Case 1
		strReadyStateText = "Opened"
	Case 2
		strReadyStateText = "Headers received"
	Case 3
		strReadyStateText = "Loading"
	Case 4
		strReadyStateText = "Done"
	End Select
	WScript.Echo strReadyStateText & " " & url & " " & FormatDateTime(Now - requestStarted, vbLongTime)
	if objXHR.readyState <> 4 Then Exit Sub
	iReq = iReq - 1
End Sub

While iReq > 0
	WScript.Sleep 100
Wend

WScript.Echo "Complete.... Please, press <ENTER>"

WScript.StdIn.ReadLine

Class clsCaller
	Public callback, args
	Public Default Function [call]()
		Dim code, i
		For i = Lbound(args) to Ubound(args)
			code = code & ", args(" & i & ")"
		Next
		Stub Eval("callback(" & mid(code,2) & ")"), [call] 
	End Function

	Private Sub Stub(p1, p2)
		If isObject(p1) Then
			Set p2 = p1
		Else
			p2 = p1
		End If
	End Sub
End Class

Sub RunInConsoleMode()
	If InStr(1,WScript.FullName,"cscript",1) <= 0 Then 
		CreateObject("WScript.Shell").Run("cscript /nologo """ & WScript.ScriptFullName & """")
		WScript.Quit
	End If
End Sub

Win.SetTimeout GetRef("Control"), 5000

Sub Control
    ' здесь код
Sub

Set Win.Main=Me

Win.SetTimeout "Main.Control ",5000,"VBScript"