Windows News and info 15th Anniversary 2009-2024

Windows 11 | Windows 10 News on these iconic operating systems. => Windows | Windows 11 | Windows 10 News => Topic started by: javajolt on August 02, 2015, 04:41:56 PM

Title: Find Windows 10 product key using VB Script
Post by: javajolt on August 02, 2015, 04:41:56 PM

This post will show you how to find your Windows 10 product key using a VB Script. But I have to add that this works on Windows 8.1, Windows 7 and earlier versions too. If for some reason you need to find out your Windows license or serial, then this post is sure to help you.

Find Windows 10 product key

(http://i57.tinypic.com/313679v.jpg)

Open a Notepad and copy-paste the following:

Quote

Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

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

In Save as dialog box, select All files and save this file as a .vbs file, giving it any suitable name like keyfinder.vbs.

Now run this file, and you will see your Windows 10 product key.

You can also find Windows Product Key using Command Prompt or PowerShell (http://www.windows10newsinfo.com/smf/index.php/topic,30056.0.html).

If these methods do not work for you, you can also use some free Software Key Finders to recover and save, not just Windows, but even Office, Software, Games serials and license keys.

source:thewindowsclub│via:Microsoft