Enumerate Regkey - Find all strings and values underneath

[redfive19]

Hi all,

I'm trying to find all the drivers on a system. I'm trying to find all of the keys underneath this key:

HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Devices

After searching, I still can't figure out how I'd go about this. Does anyone know how to create an array of strings and values underneath one key? Thank you ahead of time!

[GEOSoft]

Not tested but this should work. If Not I wrote a working version just a few days ago and it should be in an archived version of the script I was working on at the time. Let me know.

#include<array.au3> ;; For demo purposes only
Global $sKey = "HKCU\Software\Microsoft\Windows NT\CurrentVersion\Devices"
$sSep = Opt("GUIDataSeparatorChar")
$aResult = _RegEnum_KeyData($sKey)
If NOT @Error Then _ArrayDisplay($aResult)

Func _RegEnum_KeyData($s_Key)
    Local $sStr, $iCount = 1, $sHold, $aItems, $aRtn
    While 1
       $sHold = RegEnumKey($s_Key, $iCount)
       If @Error Then ExitLoop
       $sStr &= $sHold & $sSep
    WEnd
    If $sHold Then
        $aItems = StringSplit(StringTrimRight($sHold, StringLen($sSep)), $sSep)
        If IsArray($aItems) Then
            Dim $aRtn[Ubound($aItems)][2]
            For $i = 1 To Ubound($aItems)
                $aRtn[$i][0] = $aItems[$i]
                $aRtn[$i][1] = RegRead($s_Key, $aItems[$i])
            Next
        If $aRtn[1][0] = "" And $aRtn[1][1] <> "" Then $aRtn[1][0] = "(Default)" ;; This can be removed without affecting anything
        Return $aRtn
        EndIf
    EndIf
    Return SetError(1)
EndFunc

EDIT Added an Error return

Edited June 23, 2010 by GEOSoft

[PsaltyDS]

Ahem... _RegSearch()

[redfive19]

Ahhh you guys rule!!!! Thank you!

Anyone know how to find the default printer??

[GEOSoft]

RegRead("HKCU\Software\Microsoft\Windows NT\CurrentVersion\Windows", "Device")