Regedit İşlemi

Const HKEY_CLASSES_ROOT  = &H80000000
Const HKEY_CURRENT_USER  = &H80000001
Const HKEY_LOCAL_MACHINE = &H80000002
Const HKEY_USERS         = &H80000003

strComputer = "."
strKeyPath = "Software\Test"

Set objRegistry = GetObject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

DelSubkeysHKCU HKEY_CURRENT_USER, "Software\Bentley\Licensing\1.1\"
DelSubkeysHKLM HKEY_LOCAL_MACHINE, "Software\Wow6432Node\Bentley\Licensing\1.1\"

Sub DelSubkeysHKLM(HKEY_LOCAL_MACHINE, strKey)
    objRegistry.EnumKey HKEY_LOCAL_MACHINE, strKey, arrSubKeys
    If IsArray(arrSubKeys) Then
        For Each strSubkey In arrSubKeys
            DelSubkeysHKLM HKEY_LOCAL_MACHINE, strKey & "\" & strSubkey
        Next
    End If
    objRegistry.DeleteKey HKEY_LOCAL_MACHINE, strKey
End Sub

Sub DelSubkeysHKCU(HKEY_CURRENT_USER, strKey)
    objRegistry.EnumKey HKEY_CURRENT_USER, strKey, arrSubKeys
    If IsArray(arrSubKeys) Then
        For Each strSubkey In arrSubKeys
            DelSubkeysHKCU HKEY_CURRENT_USER, strKey & "\" & strSubkey
        Next
    End If
    objRegistry.DeleteKey HKEY_CURRENT_USER, strKey
End Sub