over engineered.... thats what i get for trying to be too fancy. Here ya go this should work.
Code:'Reg remover remover script - remove registry key for TMPGen '31/01/04 option explicit on error resume next dim ws,Rkey set ws = createobject("wscript.Shell") 'create system object Rkey="HKEY_CLASSES_ROOT\CLSID\{1ABF72A3-8502-4EC4-A42A-BCE3755E0C70}" ws.regdelet(Rkey) msgbox "Done"