Registry Log & Delete

[Wruck 1]

I am looking to obtain help in writing a function that will take an incoming variable (registry key) and write to a log file the strings and values within the key prior to deleting it.

I am fairly sure using an array would be the best method along with use of the RegEnumKey and RegEnumVal functions. I am really unsure of how to put these commands together in a loop to populate said array. Then use that array to perform the tasks required. That said, the current implemenation also contains no #include statements and I would like to try to stay away from adding any.

I am *REALLY* new to this. Just picked it up a few days ago due to a departing coworker. Please be merciful.

Edited March 15, 2011 by Wruck

[water 1,847]

Please search the Example Scripts section of this forum for Registry UDFs. Maybe one of this has the functions you need.

[guinness 1,459]

Also on top of what water said have a look for user KaFu, he has a Function that gives an excellent example of using RegEnumKey and RegEnumVal Functions.

[Wruck 1]

I have gone through what was mentioned, and after spending the past day trying to make sense of this - I find myself still swimming without any direction.

[guinness 1,459]

What do you have so far? Because as you can appreciate if one of us was to create an Example it still might be a little confusing. Perhaps have a look at the Help File about the respective Functions. Also you haven't specified a Registry Key you would like to enumerate?

[Wruck 1]

Okay, this is what I have thus far... I know it is missing some things. I feel like such a moron here...

$sLogFile = @ScriptDir & "\DelTmp.log"
$SubKey = HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run

_RegistryClean($SubKey)

Func _RegistryClean($SubKey)
    $LogFile = FileOpen($sLogFile, 1)
    $RegExport = _RegListToArray($SubKey)
    if not @error Then
    For $i = $RegExport[0] to 1 step -1
        RegDelete ($RegExport[$i])
        FileWriteLine($LogFile, "Deleted: " & $RegExport[$i])
    next
    EndIf
    FileClose($LogFile)
EndFunc

Func _RegListToArray($sKey)
    Local $aArray[1][1], $sEnum, $sHold, $iCC
    While 1
        $iCC += 1
        $sEnum = RegEnumVal($sKey, $iCC)
        If @error Then ExitLoop
        $sHold &= $sEnum & Chr(01)
        EndIf
    WEnd
    StringSplit(StringTrimRight($sHold, 1), Chr(01))
EndFunc

Edited March 15, 2011 by Wruck

[guinness 1,459]

Did you try this >> My suggestion would be to have a look at how KaFu does it and read the Help File on how to structure the code correctly Also I would recommend that you use SciTE4AutoIt3 as this will show you any code errors you might have within your Script. For Example...

If @error Then ExitLoop
    ; Something
EndIf

should be

If @error Then ExitLoop
; Something

Ref:

Edited March 15, 2011 by guinness

[Wruck 1]

Okay, thank you. I will go back to the books on this one. I guess I was starting to get frustrated... Thank you for the continued support and encouragement.

Edited March 15, 2011 by Wruck