Const HKCR=&H80000000
sPath="CLSID\{F935DC22-1CF0-11D0-ADB9-00C04FD58A0B}"
Set objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv")
call subEnumkey(sPath)
sub subEnumKey(sPath)
asPath=sPath
objRegistry.EnumKey HKCR,asPath,subSubkeys
if not isNull(subSubkeys) then
for each subSubSubkeys in subSubkeys
bsPath=asPath & "\" & subSubSubkeys
call subEnumKey(bsPath)
next
objRegistry.DeleteKey HKCR,asPath
else
objRegistry.DeleteKey HKCR,asPath
end if
end sub
