ajmcqueen
asked on
Office 2013 Product Key
Trying to recover an Office 2013 Product Key from Windows 7 upgraded to Windows 10.
The Office 2013 was purchased OEM with a DELL PC and product key originally entered from accompanying card.
The Office 2013 was purchased OEM with a DELL PC and product key originally entered from accompanying card.
Though your script shows product keys they don't match the product keys on my system.
Tried this?
https://www.magicaljellybean.com/keyfinder/
https://www.magicaljellybean.com/keyfinder/
or you can try this.
Const HKEY_LOCAL_MACHINE = &H80000002
WinKey = GetWinKey
OfficeKeys = GetOfficeKey("10.0") & GetOfficeKey("11.0") & GetOfficeKey("12.0") & GetOfficeKey("14.0") & GetOfficeKey("15.0")
If Msgbox(WinKey & vbnewline & vbnewline & OfficeKeys & vbnewline & "Save All Keys to ProductKeys.txt?", vbyesno, "Cosmic Boom") = vbyes then
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.CreateTextFile("ProductKeys.txt", True)
objTextFile.Write WinKey & vbnewline & vbnewline & OfficeKeys
objTextFile.Close
end if
Function GetOfficeKey(sVer)
On Error Resume Next
Dim arrSubKeys
Set wshShell = WScript.CreateObject( "WScript.Shell" )
sBit = wshShell.ExpandEnvironmentStrings("%ProgramFiles(x86)%")
if sBit <> "%ProgramFiles(x86)%" then
sBit = "Software\wow6432node"
else
sBit = "Software"
end if
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
objReg.EnumKey HKEY_LOCAL_MACHINE, sBit & "\Microsoft\Office\" & sVer & "\Registration", arrSubKeys
Set objReg = Nothing
if IsNull(arrSubKeys) = False then
For Each Subkey in arrSubKeys
if lenb(other) < 1 then other = wshshell.RegRead("HKLM\" & sBit & "\Microsoft\Office\" & sVer & "\Registration\" & SubKey & "\ProductName")
if ucase(right(SubKey, 7)) = "0FF1CE}" then
Set wshshell = CreateObject("WScript.Shell")
key = ConvertToKey(wshshell.RegRead("HKLM\" & sBit & "\Microsoft\Office\" & sVer & "\Registration\" & SubKey & "\DigitalProductID"))
oem = ucase(mid(wshshell.RegRead("HKLM\" & sBit & "\Microsoft\Office\" & sVer & "\Registration\" & SubKey & "\ProductID"), 7, 3))
edition = wshshell.RegRead("HKLM\" & sBit & "\Microsoft\Office\" & sVer & "\Registration\" & SubKey & "\ProductName")
if err.number <> 0 then
edition = other
err.clear
end if
Set wshshell = Nothing
if oem <> "OEM" then oem = "Retail"
if lenb(final) > 1 then
final = final & vbnewline & final
else
final = edition & " " & oem & ": " & key
end if
end if
Next
GetOfficeKey = final & vbnewline
End If
End Function
Function GetWinKey()
Set wshshell = CreateObject("WScript.Shell")
edition = wshshell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductName")
oem = ucase(mid(wshshell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProductID"), 7, 3))
key = GetKey("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId")
set wshshell = Nothing
if oem <> "OEM" then oem = "Retail"
GetWinKey = edition & " " & oem & ": " & key
End Function
Function GetKey(sReg)
Set wshshell = CreateObject("WScript.Shell")
GetKey = ConvertToKey(wshshell.RegRead(sReg))
Set wshshell = Nothing
End Function
Function ConvertToKey(key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = key(x + KeyOffset) + Cur
key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x - 1
Loop While x >= 0
i = i - 1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i - 1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function
www.belarc.com free download.
Finding your Office 2013 product keyhttp://www.belarc.com/msproductkeys.html
Purchasers of Office 2013 usually receive only a Product Key Card and instructions to download office from the office.com web site. The 25 character key on that Product Key Card is not your office install key, but instead an entitlement key allowing you to install office from that web site.
You can see the product key that is used to install office by signing into your office.com account here. Once signed in, choose Install from a disc under Account Options. You'll see your office installation product key to the right of your options.
ASKER
None of the above work with Office 2013 or apply to Office 2013 OEM.
well this http://www.nsauditor.com/downloads/#.VqUp8_krLIU garantees it does work for office 2013. well you might wanna start with a trial version, as it is not free.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
None of the other suggestions worked.
it will show you the keys.
Open in new window