How to find all windows version serial key

Hi,

Follow these steps below:

1 - Open notepad (press on your keyboard : Windows logo + R >> type notepad hit enter key)

2 -  Copy the code below and paste it to notepad

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

3 - After clicking on file menu >> save as >> gives a name you want, for instance "windowskeyfinder.vbs"

4 - Go to Save as type >> expand then choose "ALL FILES"

5 - Choose where you want to save your file then hit save button

6 - Open the folder where the file is located and double click on it and enjoy.

Bye for now

Was this discussion helpful?

Sorry this didn't help.

Great! Thanks for your feedback.

How satisfied are you with this discussion?

Thanks for your feedback, it helps us improve the site.

How satisfied are you with this discussion?

Thanks for your feedback.

 

Discussion Info


Last updated December 3, 2020 Views 16,619 Applies to: