Find Windows Product Key Code (VBS Script) (Windows 10, 8.1, 8, 7, Vista)

Find Windows Product Key Code (VBS Script)

Run the following VBS script to find out your Windows key code.

Download the VBS file; save it to Desktop. Double-click on it.

https://www.sysnative.com/apps/WindowsKeyCode.vbs

Contents of VBS file

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

 

[Digerati]

Or, just run Speccy and learn all sorts of information about your computer.

 

[Wrench97]

Is there a way to copy it as in copy/paste?

 

[Digerati]

JC's script or the key from Speccy?

 

[Wrench97]

The key from JC's script output box.

 

[RepairandRestore]

Or, just run Speccy and learn all sorts of information about your computer.

I`ve try it on tree different machines the key didn`t match for none of them ;(

 

[Digerati]

Make sure you understand the difference between Product ID and Product Key. The ID is what you see when you right click on Computer on your desk top (or press the Windows key + Pause). The Product key, also called Serial number in Speccy (sorry if I confused the issue there) is the big number you enter when you authenticate Windows.

 

[RepairandRestore]

Make sure you understand the difference between Product ID and Product Key. The ID is what you see when you right click on Computer on your desk top (or press the Windows key + Pause). The Product key, also called Serial number in Speccy (sorry if I confused the issue there) is the big number you enter when you authenticate Windows.

Actually it is my fault it is a different script than

function Get-WindowsKey { ## function to retrieve the Windows Product Key from any PC
## by Jakob Bindslet (jakob@bindslet.dk)
param ($targets = ".")
$hklm = 2147483650
$regPath = "Software\Microsoft\Windows NT\CurrentVersion"
$regValue = "DigitalProductId"
Foreach ($target in $targets) {
$productKey = $null
$win32os = $null
$wmi = [WMIClass]"\\$target\root\default:stdRegProv"
$data = $wmi.GetBinaryValue($hklm,$regPath,$regValue)
$binArray = ($data.uValue)[52..66]
$charsArray = "B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9"
## decrypt base24 encoded binary data
For ($i = 24; $i -ge 0; $i--) {
$k = 0
For ($j = 14; $j -ge 0; $j--) {
$k = $k * 256 -bxor $binArray[$j]
$binArray[$j] = [math]::truncate($k / 24)
$k = $k % 24
}
$productKey = $charsArray[$k] + $productKey
If (($i % 5 -eq 0) -and ($i -ne 0)) {
$productKey = "-" + $productKey
}
}
$win32os = Get-WmiObject Win32_OperatingSystem -computer $target
$obj = New-Object Object
$obj | Add-Member Noteproperty Computer -value $target
$obj | Add-Member Noteproperty Caption -value $win32os.Caption
$obj | Add-Member Noteproperty CSDVersion -value $win32os.CSDVersion
$obj | Add-Member Noteproperty OSArch -value $win32os.OSArchitecture
$obj | Add-Member Noteproperty BuildNumber -value $win32os.BuildNumber
$obj | Add-Member Noteproperty RegisteredTo -value $win32os.RegisteredUser
$obj | Add-Member Noteproperty ProductID -value $win32os.SerialNumber
$obj | Add-Member Noteproperty ProductKey -value $productkey
$obj
} }

PS; I`m not trying to steal our clients product keys, sometimes they do not have them as they damaged the sticker :)