Рекурсивное удаление раздела реестра

'Удаление разделов:
Dim hDefKey, strKeyPath, Subkey
 On Error Resume Next
Const HKEY_CLASSES_ROOT = &H80000000 'HKEY_CLASSES_ROOT
Const HKEY_CURRENT_USER = &H80000001 'HKEY_CURRENT_USER
Const HKEY_LOCAL_MACHINE = &H80000002 'HKEY_LOCAL_MACHINE
Const HKEY_USERS = &H80000003 'HKEY_USERS
Const HKEY_CURRENT_CONFIG = &H80000005 'HKEY_CURRENT_CONFIG
 
 
OpenKey = "HKEY_CLASSES_ROOT\Test"
tmp = Split(OpenKey, "\", 2)
hDefKey = trim(tmp(0))
KeyPath = trim(tmp(1))
strKeyPath = KeyPath
 
Select Case hDefKey
    Case "HKCR" hDefKey = HKEY_CLASSES_ROOT
    Case "HKCU" hDefKey = HKEY_CURRENT_USER 
    Case "HKLM" hDefKey = HKEY_LOCAL_MACHINE
    Case "HKU" hDefKey = HKEY_USERS
    Case "HKCC" hDefKey = HKEY_CURRENT_CONFIG
        Case "HKEY_CLASSES_ROOT" hDefKey = HKEY_CLASSES_ROOT
        Case "HKEY_CURRENT_CONFIG" hDefKey = HKEY_CURRENT_CONFIG
        Case "HKEY_CURRENT_USER" hDefKey = HKEY_CURRENT_USER
        Case "HKEY_LOCAL_MACHINE" hDefKey = HKEY_LOCAL_MACHINE
        Case "HKEY_USERS" hDefKey = HKEY_USERS
End Select
 
 
'подключение к WMI
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
If Err.Number <> 0 Then
    WScript.Echo Err.Number & ": " & Err.Description
    WScript.Quit
End If
 
Select Case hDefKey
                        Case &H80000000: r = "HKEY_CLASSES_ROOT"
                        Case &H80000001: r = "HKEY_CURRENT_USER"
                        Case &H80000002: r = "HKEY_LOCAL_MACHINE"
                        Case &H80000003: r = "HKEY_USERS"
                        Case &H80000005: r = "HKEY_CURRENT_CONFIG"
                    End Select
 
 
'удаление разделов
intRes = objReg.EnumKey(hDefKey, strKeyPath, arrSubKeys) 
If intRes = 0 Then 
For Each Subkey In arrSubKeys 
 delKey(Subkey)
Next
End If
 
Function delKey(Subkey)
'On Error Resume Next
intRes = objReg.DeleteKey(hDefKey, strKeyPath, Subkey)
If intRes <> 0 Then 
    WScript.Echo intRes & ": не удалась удалить раздел " & r&"\"&strKeyPath&"\"&SubKey & " " &  Err.Number
    WScript.Quit
Else
    Wscript.Echo "Ok Error = " & Err.Number
 
End If
End Function
intRes = objReg.DeleteKey(hDefKey, strKeyPath)
If intRes <> 0 Then 
    WScript.Echo intRes & ": не удалась удалить раздел " & r&"\"&strKeyPath & " " & Err.Number
    WScript.Quit
Else
    Wscript.Echo "Ok Error = " & Err.Number
End If
 
'вывод сообщений
intRes = objReg.EnumKey(hDefKey, strKeyPath)
If intRes <> 0 Then
WScript.Echo "Раздел " &r&"\"&strKeyPath& " удалён."
WScript.Quit
End If