noobpix.blogg.se -

Find office 2013 product key from registry

$aKeys = BitOR(BitAND($aKeys, 0xF7), BitShift(BitAND($isWin8, 2), -2)) Local Const $isWin8 = BitAND(BitShift($aKeys, 3), 1) $aKeys = Int(BinaryMid($bKey, $i + 1, 1)) Return SetError(1, 0, "Product not supported") If = '圆4' Then $RegKey = 'HKLM64\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Registration' $RegKey = 'HKLM\SOFTWARE\Microsoft\Office\15.0\Registration' $RegKey = 'HKLM64\SOFTWARE\Microsoft\Office\14.0\Registration' If '圆4' Then Return SetError(1, 0, "Product not found") If = '圆4' Then $RegKey = 'HKLM64\SOFTWARE\Wow6432Node\Microsoft\Office\14.0\Registration' $RegKey = 'HKLM\SOFTWARE\Microsoft\Office\14.0\Registration' If = '圆4' Then $RegKey = 'HKLM64\SOFTWARE\Wow6432Node\Microsoft\Office\12.0\Registration' $RegKey = 'HKLM\SOFTWARE\Microsoft\Office\12.0\Registration' If = '圆4' Then $RegKey = 'HKLM64\SOFTWARE\Wow6432Node\Microsoft\Office\11.0\Registration' $RegKey = 'HKLM\SOFTWARE\Microsoft\Office\11.0\Registration'

$bKey = RegRead($RegKey & '\' & $var, 'DigitalProductId') If = '圆4' Then $RegKey = 'HKLM64\SOFTWARE\Wow6432Node\Microsoft\Office\10.0\Registration'

$RegKey = 'HKLM\SOFTWARE\Microsoft\Office\10.0\Registration' $bKey = RegRead("HKLM64\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DefaultProductKey", "DigitalProductId4") $bKey = RegRead("HKLM64\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DefaultProductKey", "DigitalProductId") $bKey = RegRead("HKLM64\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "DigitalProductId4") $bKey = RegRead("HKLM64\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "DigitalProductId")

Expand collapse popup ConsoleWrite("Windows Key : " & & _DecodeProductKey("Windows") & Key 4 : " & & _DecodeProductKey("Windows_DPid4") & Default : " & & _DecodeProductKey("Windows_Def") & Default 4 : " & & _DecodeProductKey("Windows_Def_DPid4") & & XP Key : " & & _DecodeProductKey("Office XP") & 2003 Key : " & & _DecodeProductKey("Office 2003") & 2007 Key : " & & _DecodeProductKey("Office 2007") & 2010 x86 Key: " & & _DecodeProductKey("Office 2010 x86") & 2010 圆4 Key: " & & _DecodeProductKey("Office 2010 圆4") & 2013 x86 Key: " & & _DecodeProductKey("Office 2013 x86") & 2013 圆4 Key: " & & _DecodeProductKey("Office 2013 圆4") & _DecodeProductKey($Product, $Offset = 0)