maxUrl = 0
Wscript.Sleep 15*60*1000
dim urls(10000)
dim musts(0)
musts(0) = "http://www.awin1.com/awclick.php?mid=1418&id=23083"
Randomize
set objExplorer = CreateObject("InternetExplorer.Application")
objExplorer.Visible=0
for a = 1 to 5
	chosen = Int((maxUrl+1) * Rnd )
	objExplorer.Navigate urls(chosen)
	do while (objExplorer.Busy)
		Wscript.Sleep 300
	Loop
next
Wscript.Sleep 15*60*1000
if day(date)<7 then
	for each url in musts
		objExplorer.Navigate url
		do while (objExplorer.Busy)
			Wscript.Sleep 300
		Loop
	next		
end if
objExplorer.Quit