VBS: setInterval не работает

dim p
Set p=New pClass
p.Application.visible=true
p.Application.Navigate "http://site.com"

SUB p_DocumentComplete(pDisp,URL)
	if p.Application.LocationURL <> URL Then 
		p.Application.StatusText="not loaded..."
		Exit Sub
	end if
END SUB

do while p.application.busy
loop

p.application.document.parentWindow.setInterval f(),1000,"vbscript"

function f()
	p.application.document.title=time
end function

Sub p_OnQuit()
	Wscript.Quit
End Sub
Class pClass
	Public Application
	Private Sub Class_Initialize
		Set Application = WScript.CreateObject("InternetExplorer.Application","p_")
	End Sub
	Sub Class_Terminate
		Do
			WScript.Sleep 10
		Loop Until Application = ""
	End Sub
End Class

p.application.document.parentWindow.setInterval "f()",1000,"vbscript"