Get your Windows product key from a script

The product key is located in the registry under

HKLM\Software\Microsoft\Windows NT\CurrentVersion

It is the value named: DigitalProductId

If you look at it, you will realize it is encrypted:

That is what his script takes care of. It reverses the simple XOR encryption and turns that numeric mess into a readable product key.

cscript serial.vbs

save the following code to serial.vbs

'*****************************************
'* Script Usage: Get Windows Product Key *
'* http://www.intelliadmin.com           *
'* Revision 8/15/2012                    *
'*****************************************

'Constants for our registry query
const HKEY_LOCAL_MACHINE = &H80000002
sRegistryKeyName = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"
sRegistryValueName = "DigitalProductId"

function GetProductKey
    'Get the raw product key data
    dim pValues()
    Set poRegistry=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
    poRegistry.GetBinaryValue HKEY_LOCAL_MACHINE,sRegistryKeyName,sRegistryValueName,pValues

    Dim sArrayPID
    sArrayPID = Array()

    'In that data, positions 52-66 contain our product id info
    'We copy to an array so we can decrypt

    For i =  to
        'Increase our array size by one
        ReDim Preserve sArrayPID( UBound(sArrayPID) +  )
        'Insert our value into the end if the array
        sArrayPID(UBound(sArrayPID)) = pValues(i)
    Next

    'Consants for our product key
    Dim sProductKeyChars
    sProductKeyChars = Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","","","","","","","")

    For i =  To  Step -
        k =
        For j =  To  Step -
            k = k *  Xor sArrayPID(j)
            sArrayPID(j) = Int(k / )
            k = k Mod
        Next
        sProductKey = sProductKeyChars(k) & sProductKey
        'Adds the - between the key sections
        if i Mod  =  And i <>  Then sProductKey = "-" & sProductKey
    Next
    GetProductKey = sProductKey
end function

function GetOSVersion
    Set SystemSet = GetObject("winmgmts:").InstancesOf ("Win32_OperatingSystem")
    for each System in SystemSet
        GetOSVersion = Trim(System.Caption) & " (" & System.Version & ")"
    next
end function 

wscript.echo GetOSVersion & ", " & GetProductKey

reference:

http://www.intelliadmin.com/index.php/2012/08/get-your-windows-product-key-from-a-script/