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"