Monday, February 06, 2012
   
Text Size

Delete Registry Sub Keys and Key Path

PDFPrintE-mail

Last Updated on Friday, 21 August 2009 23:33 Written by Administrator Friday, 21 August 2009 23:12

To delete registry sub-keys and key path:

Dim HKCU, strDeleteKeyPAth

HKCU = &H80000001
strDeleteKeyPath = "Software\Microsoft\Installer\Products\68AB67CA7DA7330167647A0000000000"

DeleteSubkeys HKCU, strDeleteKeyPath

Sub DeleteSubkeys(HKCU, strDeleteKeyPath)
    WMIReg.EnumKey HKCU, strDeleteKeyPath, arrSubkeys

    If IsArray(arrSubkeys) Then
        For Each strSubkey In arrSubkeys
            DeleteSubkeys HKCU, strDeleteKeyPath & "\" & strSubkey
        Next
    End If

    WMIReg.DeleteKey HKCU, strDeleteKeyPath
End Sub

 

Please Note: Append to Template.vbs to run this script.