sites = Array("http://www.realtimesoft.com", "http://www.microsoft.com", "http://www.apple.com", "http://www.intel.com")
monitors = Array(1, 2) 'ids of the monitors on which an IE instance should be created
Const INTERVAL = 5 'number of seconds between site changes, set to zero if sites shouldn't be changed

Set sys = CreateObject("UltraMon.System")
Set sh = CreateObject("WScript.Shell")

ie7 = False
ieVer = sh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Version")
If ieVer <> "" Then
	ieVer = Left(ieVer, InStr(ieVer, ".") - 1)
	If CLng(ieVer) >= 7 Then ie7 = True
End If

ReDim browsers(UBound(monitors))
For i = 0 To UBound(browsers)
	Set ie = CreateObject("InternetExplorer.Application")
	Set mon = sys.Monitors(CLng(monitors(i)) - 1)
	
	If ie7 = False Then
		ie.Visible = True
		ie.FullScreen = True
	End If
	
	ie.Left = mon.Left
	ie.Top = mon.Top
	ie.Width = mon.Width
	ie.Height = mon.Height
	
	If ie7 = True Then
		ie.Visible = True
		ie.FullScreen = True
	End If
	
	Set browsers(i) = ie
Next

site = 0
If INTERVAL = 0 Then
	For i = 0 To UBound(browsers)
		Set ie = browsers(i)
		ie.Navigate sites(site)
		
		site = site + 1
		If site > UBound(sites) Then site = 0
	Next
Else
	Do While True
		For i = 0 To UBound(browsers)
			Set ie = browsers(i)
			ie.Navigate sites(site)
			
			site = site + 1
			If site > UBound(sites) Then site = 0
		Next
		
		WScript.Sleep INTERVAL * 1000
	Loop
End If