- #How to find office 2013 product key with a script how to#
- #How to find office 2013 product key with a script code#
- #How to find office 2013 product key with a script password#
Latin Square password generatorīack up and restore Windows user files _3 - Modified array functions that include support for 2D arrays.
#How to find office 2013 product key with a script how to#
_FileGetProperty - Retrieve the properties of a file - SciTE Toolbar - A toolbar demo for use with the SciTE editor - GUIRegisterMsg demo - Demo script to show how to use the Windows messages to interact with controls and your GUI. Customizable Splashscreen GUI w/Progress Bar - Create a custom "splash screen" GUI with a progress bar and custom label.
#How to find office 2013 product key with a script code#
ColorChooser - An add-on for SciTE that pops up a color dialog so you can select and paste a color code into a script. If you do use my code all I ask, as a courtesy, is to make note of where you got it from.īack up and restore Windows user files _3 - Modified array functions that include support for 2D arrays. I hereby grant any person the right to use any code I post, that I am the original author of, on the forums, unless I've specifically stated otherwise in the code or the thread post. Teach a programmer to debug and he can do his work for a lifetime - by Chirag Gude Give a programmer the correct code and he can do his work for a day. Also, if it doesn't work on XP I can't help with that because I don't have access to XP, and I'm not going to. If I posted any code, assume that code was written using the latest release version unless stated otherwise. Return StringRegExpReplace($sKeyOutput, '(\w)', '\1-\2-\3-\4-\5')ĮndFunc =>_DecodeProductKey Edited by JFX $sKeyOutput = StringMid($sKeyOutput, 2, $iLast) & "N" & StringTrimLeft($sKeyOutput, $iLast + 1) $sKeyOutput = StringMid($sChars, $iCur + 1, 1) & $sKeyOutput Local $sChars = "BCDFGHJKMPQRTVWXY2346789", $iCur, $iX, $sKeyOutput, $iLast $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") $RegKey = 'HKLM64\SOFTWARE\Microsoft\Office\15.0\Registration' 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)
0 kommentar(er)
