Set oShell = CreateObject("WScript.Shell")
oShell.Run("""C:\Program Files\Mozilla Firefox\firefox.exe""")
oShell.Run("""C:\Program Files (x86)\Mozilla Firefox\firefox.exe""")
oShell.Run("""C:\Program Files (x86)\Internet Explorer\iexplore.exe""")
WScript.Sleep 3000
oShell.AppActivate ("firefox")
oShell.AppActivate ("Windows internet explorer")
WScript.Sleep 3000
oShell.SendKeys "~"
oShell.SendKeys "{F4}"