Windows 8 and 8.1 Forums


Windows 8 product key

Page 1 of 2 12 LastLast
  1. #1
    Clint's Avatar

    Cisco

    Join Date : Dec 2012
    Posts : 380
    Windows 8.1.1 Pro 64-bit Windows 10 32 bit Preview on VM
    USA

    Windows 8 product key


    I have Windows 8 Pro with Windows Media Center. When looking in advance settings under Activation. The last 4 digits are not the same as either my Windows 8 or Media Center keys that I received in the e-mail. I also have a SIW program that shows the key. It is also different than any others. If I need to reinstall, witch one should I use?


    Clint


      My System SpecsSystem Spec

  2. #2
    Ztruker's Avatar

    Senior Member


    Join Date : Apr 2010
    Space coast of Florida
    Posts : 1,800
    Windows 8.1.1 Pro X64
    USA us florida


    Use this .vbs script from an Elevated Command prompt.

    Code:
    Set WshShell = CreateObject("WScript.Shell")
    Key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
    DigitalID = WshShell.RegRead(key & "DigitalProductId")
    
    ProductName = "Product Name: " & WshShell.RegRead(Key & "ProductName") & vbNewLine
    ProductID = "Product ID: " & WshShell.RegRead(Key & "ProductID") & vbNewLine
    ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
    ProductID = ProductName & ProductID & ProductKey
    
    If vbYes = MsgBox(ProductId & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "Windows Key Information") then
       Save ProductID
    End if
    
    Function ConvertToKey(Key)
        Const KeyOffset = 52
        isWin8 = (Key(66) \ 6) And 1
        Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
        i = 24
        Chars = "BCDFGHJKMPQRTVWXY2346789"
        Do
            Cur = 0
            X = 14
            Do
                Cur = Cur * 256
                Cur = Key(X + KeyOffset) + Cur
                Key(X + KeyOffset) = (Cur \ 24)
                Cur = Cur Mod 24
                X = X -1
            Loop While X >= 0
            i = i -1
            KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
            Last = Cur
        Loop While i >= 0
        If (isWin8 = 1) Then
            keypart1 = Mid(KeyOutput, 2, Last)
            insert = "N"
            KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
            If Last = 0 Then KeyOutput = insert & KeyOutput
        End If
        a = Mid(KeyOutput, 1, 5)
        b = Mid(KeyOutput, 6, 5)
        c = Mid(KeyOutput, 11, 5)
        d = Mid(KeyOutput, 16, 5)
        e = Mid(KeyOutput, 21, 5)
        ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
    End Function
    
    Function Save(Data)
        Const ForWRITING = 2
        Const asASCII = 0
        Dim fso, f, fName, ts
        fName = "Windows Key.txt"
        Set fso = CreateObject("Scripting.FileSystemObject")
        fso.CreateTextFile fName
        Set f = fso.GetFile(fName)
        Set f = f.OpenAsTextStream(ForWRITING, asASCII)
        f.Writeline Data
        f.Close
    End Function
    Did you install the free Media Center on top of Windows 8? If so the active key will be Media Center. If you reinstall, you need to enter the Windows 8 key then install Media Center if you want.
      My System SpecsSystem Spec

  3. #3
    Clint's Avatar

    Cisco

    Join Date : Dec 2012
    Posts : 380
    Windows 8.1.1 Pro 64-bit Windows 10 32 bit Preview on VM
    USA


    Thanks for the reply Ztruker. I have no idea how to use the .vbs script. I did install the free Media Center on top of Windows 8. Just wondered why there's so many different keys that didn't match anything.

    Clint
      My System SpecsSystem Spec

  4. #4



    Join Date : Feb 2012
    USA
    Posts : 118
    Windows 8.1 Pro
    USA us north carolina


    I've been wondering myself how this would work, since me and you (clint) are in the exact same boat. Post back with what happens and how you went about it.
      My System SpecsSystem Spec

  5. #5
    Clint's Avatar

    Cisco

    Join Date : Dec 2012
    Posts : 380
    Windows 8.1.1 Pro 64-bit Windows 10 32 bit Preview on VM
    USA


    I haven't done it yet. I just want to know what to do if I have to, and if it works I'll let you know.
      My System SpecsSystem Spec

  6. #6
    Ztruker's Avatar

    Senior Member


    Join Date : Apr 2010
    Space coast of Florida
    Posts : 1,800
    Windows 8.1.1 Pro X64
    USA us florida


    There was a long thread on this a few weeks/months ago. That's where the .vbs script came from.

    Script posted by NiFu here: How do I find my Product Key?

    To use it, open Notepad. Then copy all the data inside the code box and paste it into Notepad.
    Click File / Save as and save it as "ShowKey.vbs" on the Desktop. Include the double quotes or Notepad will add .txt to the end of the name.
    On the Metro desktop. type cmd. Right click on Command Prompt at top left then select Run as Administrator at the bottom of the screen.

    Change to the Desktop directory you saved Showkey.vbs script in: cd desktop
    Run the program: showkey.vbs

    Output is in a window on the Desktop.

    Code:
    Set WshShell = CreateObject("WScript.Shell")
    Key = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
    DigitalID = WshShell.RegRead(key & "DigitalProductId")
    
    ProductName = "Product Name: " & WshShell.RegRead(Key & "ProductName") & vbNewLine
    ProductID = "Product ID: " & WshShell.RegRead(Key & "ProductID") & vbNewLine
    ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
    ProductID = ProductName & ProductID & ProductKey
    
    If vbYes = MsgBox(ProductId & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "Windows Key Information") then
       Save ProductID
    End if
    
    Function ConvertToKey(Key)
        Const KeyOffset = 52
        isWin8 = (Key(66) \ 6) And 1
        Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
        i = 24
        Chars = "BCDFGHJKMPQRTVWXY2346789"
        Do
            Cur = 0
            X = 14
            Do
                Cur = Cur * 256
                Cur = Key(X + KeyOffset) + Cur
                Key(X + KeyOffset) = (Cur \ 24)
                Cur = Cur Mod 24
                X = X -1
            Loop While X >= 0
            i = i -1
            KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
            Last = Cur
        Loop While i >= 0
        If (isWin8 = 1) Then
            keypart1 = Mid(KeyOutput, 2, Last)
            insert = "N"
            KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
            If Last = 0 Then KeyOutput = insert & KeyOutput
        End If
        a = Mid(KeyOutput, 1, 5)
        b = Mid(KeyOutput, 6, 5)
        c = Mid(KeyOutput, 11, 5)
        d = Mid(KeyOutput, 16, 5)
        e = Mid(KeyOutput, 21, 5)
        ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e
    End Function
    
    Function Save(Data)
        Const ForWRITING = 2
        Const asASCII = 0
        Dim fso, f, fName, ts
        fName = "Windows Key.txt"
        Set fso = CreateObject("Scripting.FileSystemObject")
        fso.CreateTextFile fName
        Set f = fso.GetFile(fName)
        Set f = f.OpenAsTextStream(ForWRITING, asASCII)
        f.Writeline Data
        f.Close
    End Function
    Last edited by Ztruker; 02 Jan 2014 at 09:55 PM.
      My System SpecsSystem Spec

  7. #7
    topgundcp's Avatar

    Senior Member



    Join Date : Nov 2012
    San Jose - California
    Posts : 2,380
    8.1x64PWMC Ubuntu14.04x64 MintMate17x64
    USA us california


    Perfect, thanks.
      My System SpecsSystem Spec

  8. #8
    Clint's Avatar

    Cisco

    Join Date : Dec 2012
    Posts : 380
    Windows 8.1.1 Pro 64-bit Windows 10 32 bit Preview on VM
    USA


    Thanks for the explanation Ztrucker. I finally got it to work, but I had to type cd Users\username\desktop. Now I have 4 keys. This one is the same as the one that shows the last 4 digits. I guess the bottom line is, if you have to do a reinstall with the ISO is to use the key from the first e-mail and then the key from the Media Center e-mail. So the key that the .vbs pulls up doesn't mean anything then.

    Clint
      My System SpecsSystem Spec

  9. #9
    David Bailey's Avatar

    Stranger In Strange Land




    Join Date : Dec 2012
    Harrisonburg, Va.
    Posts : 9,156
    Windows 8.1.1 Pro with Media Center
    USA us virginia


    Quote Originally Posted by Clint View Post
    Thanks for the explanation Ztrucker. I finally got it to work, but I had to type cd Users\username\desktop. Now I have 4 keys. This one is the same as the one that shows the last 4 digits. I guess the bottom line is, if you have to do a reinstall with the ISO is to use the key from the first e-mail and then the key from the Media Center e-mail. So the key that the .vbs pulls up doesn't mean anything then.

    Clint
    A product ID and a product Key are 2 different things.

    Google them for more information.
    I tried the VBS script.
    Nice script.Works good.
    I made a picture -
    Attached Thumbnails Attached Thumbnails Click image for larger version  
      My System SpecsSystem Spec

  10. #10
    Clint's Avatar

    Cisco

    Join Date : Dec 2012
    Posts : 380
    Windows 8.1.1 Pro 64-bit Windows 10 32 bit Preview on VM
    USA


    A product ID and a product Key are 2 different things.
    So medab1, when you do a reinstall are you going to use the product ID or the product Key from the vbs script? That was the question.
      My System SpecsSystem Spec

Page 1 of 2 12 LastLast
Windows 8 product key
Similar Threads
Thread Forum
Solved Windows 8 Product Key Error: "We couldn't verify the product key" Installation & Setup
Windows 8 product key question Installation & Setup
Solved Windows 8 Product key for x86 and x64 Installation & Setup
Solved Using the GUI to Change the Product Key in Windows 8 Windows Updates & Activation
What's my Windows 8 CP product key? General Support
Eight Forums Android App Eight Forums IOS App Follow us on Facebook

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23