#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.15.0 (Beta)
 Author:         myName

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

Global $g_sMemo = ""
RegEnumKey_Example("\Microsoft\Windows")

Msgbox(0, "RegEnumVal", $g_sMemo)
Func RegEnumKey_Example($sThis)
    Local $aRegValueType = ["REG_NONE", "REG_SZ", "REG_EXPAND_SZ", "REG_BINARY", "REG_DWORD_LITTLE_ENDIAN", _
            "REG_DWORD_BIG_ENDIAN", "REG_LINK", "REG_MULTI_SZ", "REG_RESOURCE_LIST", _
            "REG_FULL_RESOURCE_DESCRIPTOR", "REG_RESOURCE_REQUIREMENTS_LIST", "REG_QWORD_LITTLE_ENDIAN"]

    ; X64 running support
    Local $n, $i, $sWow64 = ""
    If @AutoItX64 Then $sWow64 = "\Wow6432Node"
    $g_sMemo &= "$sWow64 = " & $sWow64 & @CRLF
    Local $sVar = ""
    Local $sSubKey = ""
    For $n = 1 To 100
        $sSubKey = RegEnumKey("HKCU\Software" & $sWow64 & $sThis, $n)
        If @error Then ExitLoop
        $g_sMemo &= "--- SubKey #" & $n & " for >" & "HKCU\Software" & $sWow64 & $sThis & "< is >" & $sSubKey & "<" & @CRLF
        For $i = 1 To 100
            $sVar = RegEnumVal("HKCU\Software" & $sWow64 & $sThis & "\" & $sSubKey, $i)
            If @error <> 0 Then ExitLoop
            $g_sMemo &= "Value Name  #" & $i & " >" & $sVar & "< - Value Type >" & $aRegValueType[@extended] & "<" & @CRLF
        Next
    Next
EndFunc   ;==>RegEnumKey_Example