Delete Registry Sub Keys and Key Path

Computing

Visual Basic Scripting

Search

hits.

Login

purpleender

Rep

Gamerscore 33992

ZoneUnderground

Delete Registry Sub Keys and Key Path

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.