Delete Registry Sub Keys and Key Path

Search

hits.

Login

purpleender

Rep

44052

Newmarket

Bumder

Andrew

Gonna get High till the day I die! Reality is an illusion that occurs due to lack of resin.

FIFA Street 5/13/2012 660 1000 25 34 73%
F1 2010™ 5/13/2012 390 1000 22 50 44%
Angry Birds 5/12/2012 30 200 4 20 20%
RISK Factions 9/15/2011 125 200 7 12 58%
Skate 3 5/8/2012 110 1500 6 68 8%

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.