' theorangeone.net/pithos
Dim objShell
Set objShell = WScript.CreateObject( "WScript.Shell" )

On error resume next
for i= 0 to 900
	objShell.run(""""C:\Program Files\Internet Explorer\iexplore.exe" www.aboutthebird.com""")
	WScript.Sleep 5000
next