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 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.
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”)
‘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
‘Convert binary to chars
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”
j = 14
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)
‘Save data to a file
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)
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.
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.