Set oShell = CreateObject("WScript.Shell")
oShell.Run("""C:\Program Files\Mozilla Firefox\firefox.exe""")
oShell.Run("""C:\Program Files (x86)\Mozilla Firefox\firefox.exe""")
WScript.Sleep 3000
oShell.AppActivate "firefox"
WScript.Sleep 3000
oShell.SendKeys "~"
oShell.SendKeys "{F11}"