search entire registry

[AntiVirusGuy]

I have a bunch of AVG 7 installs gone bad. I am trying to scan the entire registry for "avg7" and delete them can someone help. I am still learning and beyond my experience

Dim $SupportedKeys = "avg7"  

Dim $SupportedKeys = StringSplit($SupportedKeys, ",")
Dim $SupportedKeyCount = 1
Dim $Found = 0

TrayTip("Scanning...", "Scanning for Keys.", 5)

While 1
   
    $SubKey = RegEnumKey("\", $SupportedKeyCount)
    
    If @error Then ExitLoop
    
    
    For $i = 1 To $SupportedKeys[0]
       
        If StringInStr($Subkey, $SupportedKeys[$i]) Then
           
            $Found += 1
            RegDelete($SubKey)
            
           
        EndIf
       
    Next
   
    $SupportedKeyCount += 1
   
WEnd

If Not $Found Then
    MsgBox(64, "Not Found", "No existing Anti Virus found", 3)
Else
    MsgBox(64, "Found", "Found " & $Found & " installed antivirus.")
EndIf

[/dev/null]

I have a bunch of AVG 7 installs gone bad. I am trying to scan the entire registry for "avg7" and delete them can someone help. I am still learning and beyond my experience

Hi,

first thing to learn: Forum search engine !! http://www.autoitscript.com/forum/index.ph...t=Search&f= Search for "+registry +recursive" in "Sample Scripts" and you will find a UDF for your problem....