Dim RegObj
Set RegObj = CreateObject("WScript.Shell")
on error resume next

RegObj.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSLicensing\Store\License001\")
RegObj.RegDelete("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\MSLicensing\Store\License000\")

Set RegObj = Nothing

msgbox "Traitement de l'erreur VBScript terminé"