' www.lysco.de ----------- 29.01.2006
'----------------------------------------
' Skript, um im InternetExplorer wechselnde Startseiten aufzurufen
' Handhabung:
'
' 1. Geben Sie unten in der Klammer die gewünschten Seiten, durch Komma getrennt, an
' 2. Speichern Sie die Datei und Starten Sie sie mit Doppelklick
'	-> Bei jedem Start wird zyklisch die nächste Startseite aufgerufen

pages=array("www.lysco.de", "www.google.de", "www.web.de")
'-----------------------------------------------------------------------------

dim objIE ' as SHDocVw.WebBrowser
dim WSHShell ' as IWSHRuntimeLibrary.IWSHShell_Class
dim index ' as Integer

const regpath = "HKEY_CURRENT_USER\Software\lysco\ieindex"

set WSHShell = CreateObject("WScript.Shell")

on error resume next
index = WSHShell.RegRead(regpath)
if index="" then index=1
WSHShell.RegWrite regpath, (index mod (ubound(pages)+1))+1, "REG_DWORD"

set objIE = CreateObject("InternetExplorer.Application")


	objIE.Navigate pages(index-1)
	
objIE.visible = true