Windows and Office key
all credits to bcording '?do=embed' frameborder='0' data-embedContent>>
Just a more Up-to-date version including office:
ConsoleWrite("Windows Key : " & @TAB & _DecodeProductKey("Windows") & @CRLF)
ConsoleWrite("Windows Key 4 : " & @TAB & _DecodeProductKey("Windows_DPid4") & @CRLF)
ConsoleWrite("Windows Default : " & @TAB & _DecodeProductKey("Windows_Def") & @CRLF)
ConsoleWrite("Windows Default 4 : " & @TAB & _DecodeProductKey("Windows_De
Try this to retrieve key from an offline windows
#include <Array.au3>
;Local Windows
;~ $keys = _DecodeProductKeys()
;Offline Windows
$var = FileSelectFolder("Choose an offline Windows folder.", "")
If @error Then Exit
$keys = _DecodeProductKeys($var)
If @error Then
MsgBox(16, 'Error', $keys)
Else
_ArrayDisplay($keys, "Retrieved Windows Keys")
EndIf
Func _DecodeProductKeys($Offline = False)
Local $Array[9][2], $BinaryDPID, $KeyPos = 0x34 * 2 + 3, $RegKey, $i, $v