mit VBS Internetseiten öffnen

Hallo zusammen,

ich versuche grad mir das Leben etwas im Internet zu erleichtern.
Wenn ich online gehe, habe ich so ein paar Seiten, die ich mir standardmäßig immer anschaue. Da ich aber nicht immer jede Seite manuell aufmachen will, möchte ich gerne, dass dies ein Script für mich übernimmt.
Ich möchte dann diese Script auch in den Autostart von XP legen, deswegen ein Script.
(Sonst könnte ich es ja auch mit dem Lesezeichen-Manager von Firefox machen)
Mein Script hatte ich mir wie folgt vorgestellt:

'Variablen und Konstanten festlegen
Dim programm1, programm2
Dim shell

'Programme bestimmen Pfad zum Programm eingeben
programm1 = "C:\Programme\Mozill~1\firefox.exe"
programm2 = "C:\Programme\Mozill~1\firefox.exe"

'shell-opjekt erstellen
Set shell = WScript.CreateObject("shell.Application")

WScript.sleep (6000)

'Programm öffnen
shell.open programm1
shell.open programm2

'Programmfenster auf dem Bildschirm anordnen
WScript.sleep (6000)
shell.Tilevertically
WScript.Quit
'Ende

Es öffnet mir auch zweimal den Firefox, nur ich weiß nicht, wie ich es hinbekomme, dass ich zwei verschiedene Internetseiten aufgemacht bekomme.
Da
programm1 = "C:\Programme\Mozill~1\firefox.exe http://www.seite1.de;
programm2 = "C:\Programme\Mozill~1\firefox.exe http://www.seite2.de;
leider nicht funktioniert.

Hoffe ich habe mein Problem gut beschrieben und ihr könnt mir weiter helfen.
Danke schon mal
mysticfighter

'Variablen und Konstanten festlegen  
Dim shell

'shell-objekt erstellen  
Set shell = WScript.CreateObject("WScript.Shell")  

WScript.sleep (6000)
'Programm öffnen  

shell.Run("J:\Programme\Firefox\firefox.exe http://www.google.de")  
shell.Run("J:\Programme\Firefox\firefox.exe http://www.test.de")  

'Programmfenster auf dem Bildschirm anordnen  
WScript.sleep (6000)


Set objShell = CreateObject("Shell.Application")  
objShell.TileVertically

WScript.Quit
'Ende