How to Get Your Windows Product Key from your installed window.

It’s harder than I thought to get your current installation’s of Windows 7, 8, or 10’s product key. There’s no easy way to find it except for this nice script.

1) Open Notepad

Search for the Notepad program that comes with every installation of Windows. When you open Notepad, an Untitled instance of Notepad should open.

2) Copy and paste the following script into Notepad:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65

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\WindowsKeyInfo.txt"     Set fso = CreateObject("Scripting.FileSystemObject")     Set txt = fso.CreateTextFile(fName)     txt.Writeline Data     txt.Close End Function

File, Save As

File name: product-key.vbs
Save as type: All Files

3) Double-click product-key.vbs to see your product key!