How to find out the activation key for Windows

Fri, 01 Jan 2021 03:08:00 +0000

A 25 character product key is used to activate Windows.

It has the form XXXXX-XXXXX-XXXXX-XXXXX-XXXXX.

It is necessary to find out the Windows activation key in several cases. For example, if your laptop or PC has 7 or 8 and you want to upgrade to Windows 10.

There are several ways to do this, consider one of the following.

Let's use the VBS script first. This, in my opinion, is the simplest way that does not involve the use of third-party applications.

To create the script, we create a plain text document. From an empty space on the desktop, right-click and select New from the context menu. In the additional menu, select the "Text Document" item. Double click the new document and open it, then copy the whole VBS script and paste it into the new document you created. Now click in the upper left corner "File - Save As ..", here you can give the file any name, for example, "My key", then write "dot - vbs", click on the line below and select "All files" ". Click Save and the My Key script will appear on your desktop.

Now double click on it and a message about your activation key will open.

VBS script:

-------------------------------------------------------------------------------------------------------

Set WshShell = CreateObject("WScript.Shell")

regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"

DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")

Win8ProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine

Win8ProductID = "Windows Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine

Win8ProductKey = ConvertToKey(DigitalProductId)

strProductKey ="Windows Key: " & Win8ProductKey

Win8ProductID = Win8ProductName & Win8ProductID & strProductKey

MsgBox(Win8ProductKey)

MsgBox(Win8ProductID)

Function ConvertToKey(regKey)

Const KeyOffset = 52

isWin8 = (regKey(66) \ 6) And 1

regKey(66) = (regKey(66) And &HF7) Or ((isWin8 And 2) * 4)

j = 24

Chars = "BCDFGHJKMPQRTVWXY2346789"

Do

Cur = 0

y = 14

Do

Cur = Cur * 256

Cur = regKey(y + KeyOffset) + Cur

regKey(y + KeyOffset) = (Cur \ 24)

Cur = Cur Mod 24

y = y -1

Loop While y >= 0

j = j -1

winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput

Last = Cur

Loop While j >= 0

If (isWin8 = 1) Then

keypart1 = Mid(winKeyOutput, 2, Last)

insert = "N"

winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)

If Last = 0 Then winKeyOutput = insert & winKeyOutput

End If

a = Mid(winKeyOutput, 1, 5)

b = Mid(winKeyOutput, 6, 5)

c = Mid(winKeyOutput, 11, 5)

d = Mid(winKeyOutput, 16, 5)

e = Mid(winKeyOutput, 21, 5)

ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e

End Function

ip Malik - Blog

How to find out the activation key for Windows