Ouvrez un nouveau document dans le Bloc-notes et collez le texte suivant dans le fichier:
Option Explicit
On Error Resume Next
Dim WshShell, message
Réglez WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.RegDelete "HKEY_LOCAL_MACHINE SYSTEM CurrentControlSet Contr ol Class {4D36E965-E325-11CE-BFC1-08002BE10318} UpperFilters"
WshShell.RegDelete "HKEY_LOCAL_MACHINE SYSTEM CurrentControlSet Contr ol class {4D36E965-E325-11CE-BFC1-08002BE10318} LowerFilters"
WshShell.RegDelete "HKEY_LOCAL_MACHINE SYSTEM CurrentControlSet Servi CES Cdr4_2K"
WshShell.RegDelete "HKEY_LOCAL_MACHINE SYSTEM CurrentControlSet Servi CES Cdralw2k"
WshShell.RegDelete "HKEY_LOCAL_MACHINE SYSTEM CurrentControlSet Servi CES Cdudf"
WshShell.RegDelete "HKEY_LOCAL_MACHINE SYSTEM CurrentControlSet Servi CES UdfReadr"
Réglez WshShell = Nothing
Message = "Vos lecteurs de CD / DVD-ROM doivent maintenant apparaître dans l'Explorateur Windows." & vbCr
Message = message & "Vous devrez peut-être redémarrer votre ordinateur pour voir le changement."
MsgBox Message, 4096,"Fini!"