Получение ProductKey Windows и Office

#include <Array.au3>

$WshShell = ObjCreate('WScript.Shell')

$strDigitalProductId = 'HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId'
$strXPKey = $WshShell.RegRead($strDigitalProductId)
_ArrayDisplay($strXPKey, 'VBS')
;здесь в массиве Dec значения каждого байта
;для расшифровки нужны только элементы массива 52-66
;выковыриваем их:
$b_Key = RegRead('HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion', 'DigitalProductId')
ConsoleWrite('1. ' & $b_Key & @LF)
$b_Key = BinaryMid($b_Key, 53, 15)
ConsoleWrite('2. ' & $b_Key & @LF)
$b_Key = Hex($b_Key)
ConsoleWrite('3. ' & $b_Key & @LF)
;преобразуем в массив
$a_rpk = StringRegExp($b_Key, '.{2}', 3)
_ArrayDisplay($a_rpk, 'HEX - AutoIt')
Dim $aTemp[16][2] = [['VBS', 'AutoIt']]
For $i = 0 To 14
    $aTemp[$i + 1][0] = $strXPKey[$i + 52]
    $aTemp[$i + 1][1] = Dec($a_rpk[$i])
Next
_ArrayDisplay($aTemp, 'Итог')