esportare voci dal registro, in autoit

$key="HKEY_CURRENT_USER" & Chr(92) & "Software" & Chr(92) & "Microsoft" & Chr(92) & "IdentityCRL" & Chr(92) & "UserExtendedProperties"
$save=@ScriptDir & "/Export.txt"
$loop=0
$ret = ""
FileDelete($save)
While 1
       $loop+=1
       $current=RegEnumKey($key,$loop)
       if @error then ExitLoop
       $ret&=$current & @CRLF
       $sub_loop=0
       While 1
               $sub_loop+=1
               $sub_curr = RegEnumVal($key & Chr(92) & $current,$sub_loop)
               if @error then ExitLoop
               $ret&=@CRLF & $sub_curr & " = " & RegRead($key & Chr(92) & $current,$sub_curr)
       WEnd
       $ret&=@CRLF & "//---------------------------//" & @CRLF & @CRLF & @CRLF
WEnd
FileWrite($save,$ret)