How To View Your Lost Product Key of Windows 10, 8 and 7 Without Any Software

Last Updated On : Thursday, June 23, 2016
4

Every licensed software has the product key to make it unique for a particular user. The key is used to validate your purchase. Whenever you purchase a software it comes with a valid license key and you can use the same while re-installing the software in case of any issues. But once you installed the software and lost the license key, it will be very hard to re-install the software without a valid license.

Likewise, Windows Operating System which is one of the products which comes with a license key. If you lost the product key of your windows operating system, no worries. The product key of windows operating system is always available in somewhere inside, but it needs a little tweak to view it. Many free and paid software’s are available online to get the product key.

But here I came with a simple trick to find the product key without any software.

How To View Your Lost Product Key of Windows 10, 8 and 7 Without Any Software

How To Steps:

Step 1: Open Notepad in your Windows operating system.

Step 2: Enter the below Code in the notepad. You can copy it from here.

Option Explicit

Dim objshell,path,DigitalID, Result
Set objshell = CreateObject(“WScript.Shell”)
‘Set registry key path
Path = “HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\”
‘Registry key value
DigitalID = objshell.RegRead(Path & “DigitalProductId”)
Dim ProductName,ProductID,ProductKey,ProductData
‘Get ProductName, ProductID, ProductKey
ProductName = “Product Name: ” & objshell.RegRead(Path & “ProductName”)
ProductID = “Product ID: ” & objshell.RegRead(Path & “ProductID”)
ProductKey = “Installed Key: ” & ConvertToKey(DigitalID)
ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
‘Show messbox if save to a file
If vbYes = MsgBox(ProductData & vblf & vblf & “Save to a file?”, vbYesNo + vbQuestion, “BackUp Windows Key Information”) then
Save ProductData
End If

‘Convert binary to chars
Function ConvertToKey(Key)
Const KeyOffset = 52
Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
‘Check if OS is Windows 8
isWin8 = (Key(66) \ 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Maps = “BCDFGHJKMPQRTVWXY2346789”
Do
Current= 0
j = 14
Do
Current = Current* 256
Current = Key(j + KeyOffset) + Current
Key(j + KeyOffset) = (Current \ 24)
Current=Current Mod 24
j = j -1
Loop While j >= 0
i = i -1
KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput
Last = Current
Loop While i >= 0
keypart1 = Mid(KeyOutput, 2, Last)
insert = “N”
KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput
ConvertToKey = Mid(KeyOutput, 1, 5) & “-” & Mid(KeyOutput, 6, 5) & “-” & Mid(KeyOutput, 11, 5) & “-” & Mid(KeyOutput, 16, 5) & “-” & Mid(KeyOutput, 21, 5)

End Function
‘Save data to a file
Function Save(Data)
Dim fso, fName, txt,objshell,UserName
Set objshell = CreateObject(“wscript.shell”)
‘Get current user name
UserName = objshell.ExpandEnvironmentStrings(“%UserName%”)
‘Create a text file on desktop
fName = “C:\Users\” & UserName & “\Desktop\WindowsProductKeyInfo.txt”
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
End Function

Note : Please replace all of the “” and . If it changes while pasting to notepad.
or copy the code directly from the file. Click here to open the file.

Step 3: Save the file with .vbs extension
Eg : ProductKey.vbs

Step 4: Open the file you saved by double clicking it.

Step 5: It will display your operating system details with product key as shown in the below screenshot.

How To View Your Lost Product Key of Windows 10, 8 and 7 Without Any Software 2

Step 6: If you want you can save the product key details by simply clicking the Yes button. A notepad will be created with the product details on the same location where you have the vbs file.

Note: If you have the product key with you, just test and compare it once. I have tested this on Windows 10, 8 and 7 operating systems and it working fine for me. If you find any wrong key or any difficulties, please feel free to comment.

  • Nelson

    Getting invalid character errors. Doesn’t seem to like the quotes around WScript.Shell. Or ‘Set registry key path. Looks very useful if I can get the syntax correct. Thanks!

  • Nelson

    Greetings I was able to fix the script by replacing all of the “” with ” and all the ‘ with ‘. No character errors now. Works as intended. Thanks much!