Wednesday, July 16, 2008

VBSCRIPT to open multiple tabs in Firefox

Dim domain, URL(30)

domain = "yourdomain.com"

URL(0) = "http://mail.google.com/mail/" 'Gmail
URL(1) = "http://mail.google.com/a/" & domain & "/" 'Google Apps Mail
URL(2) = "http://www.google.com/calendar/render?pli=1"
URL(3) = "http://www.google.com/reader/view/"
URL(4) = "http://www.google.com/notebook/"
URL(5) = "http://www.google.com"

Dim strURL
For i = 0 to 30

If URL(i) <> "" then
strURL = strURL & URL(i)
If URL(i+1) <> "" then
strURL = strURL & """ """
End If
End If

Next

Dim sh
Set sh = WScript.CreateObject("WScript.Shell")

sh.run chr(34) & "C:\Program Files\Mozilla Firefox\firefox.exe" & chr(34) & " " & chr(34) & strURL & chr(34)



Wscript.quit