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")

ReDim browsers(UBound(monitors))
For i = 0 To UBound(browsers)
	Set ie = CreateObject("InternetExplorer.Application")
	Set mon = sys.Monitors(CLng(monitors(i)) - 1)
	
	ie.Visible = True
	ie.FullScreen = True
	ie.Left = mon.Left
	ie.Top = mon.Top
	ie.Width = mon.Width
	ie.Height = mon.Height
	
	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