Dim WshShell,CLSID ,fso
Set fso = Wscript.createObject("Scripting.FileSystemObject")
Set WshShell = Wscript.CreateObject("Wscript.shell")
On error resume next
CLSID = WshShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ShellServiceObjectDelayLoad\system")


 If len(CLSID) > 0 Then
 set bye = fso.CreateTextFile("adios.reg" ,true)
 bye.writeLine "REGEDIT4"
 bye.writeLine ""
 bye.writeLine "[-HKEY_CLASSES_ROOT\CLSID\" & CLSID & "]"
 bye.close
  Else MsgBox "No CLSID entry present"
End IF
WshShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ShellServiceObjectDelayLoad\system"


Wshshell.Run ("regedit /s  adios.reg")

MsgBox "Done"