Windows 8 and 8.1 Forums

Windows 8 product key

  1. #1


    Posts : 481
    Windows 8.1.1 Pro 64-bit Windows 10 32 bit Preview on VM

    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


    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


    Posts : 481
    Windows 8.1.1 Pro 64-bit Windows 10 32 bit Preview on VM


    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


    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


    Posts : 481
    Windows 8.1.1 Pro 64-bit Windows 10 32 bit Preview on VM


    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


    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 21:55.
      My System SpecsSystem Spec

  7. #7


    San Jose - California
    Posts : 2,825
    8.1x64PWMC Ubuntu14.04x64 MintMate17x64


    Perfect, thanks.
      My System SpecsSystem Spec

  8. #8


    Posts : 481
    Windows 8.1.1 Pro 64-bit Windows 10 32 bit Preview on VM


    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


    Harrisonburg, Va.
    Posts : 10,421
    Windows 8.1.1 Pro with Media Center


    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 Untitled.png  
      My System SpecsSystem Spec

  10. #10


    Posts : 481
    Windows 8.1.1 Pro 64-bit Windows 10 32 bit Preview on VM


    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
Windows 8 Product Key Error: "We couldn't verify the product key"
I wanna dual boot Windows 8 Consumer Preview with my existing OS, Windows 7 Home Premium. I have created the necessary partitions and also created the bootable pendrive from the ISO downloaded. When I begin the installation, everything goes fine until the Product Key screen comes up. I have...
Installation & Setup
Cd key or Product key windows 8.1 ?
hello i have a question i wanna buy windows 8.1 pro through internet, i dont want the box of it. So when i buy it , do i need to purchase cd key or product key? or after I buy cd key, do i need to pay for product key ?
General Support
Windows 8 product key
Is there a way to tell if a Windows 8 Upgrade product key has already been activated or not? The problem is we have 5 laptops in our house and they all have Windows 7 and I bought upgrade keys for all of them but we only upgraded 3 of the laptops. Since we installed Media Center, the key...
Windows Updates & Activation
windows 8 product key
Hello First thread i have a acer laptop and the hard drive died now i going to get a new hard drive but i don't have the product windows keyhow do i get this.
General Support
Windows 8 product key
Hi, I recently purchased an SSD and I tried to install Windows 8.1 onto it. It turned out my product key didn't work for win 8.1, so I tried installing Win 8, which worked fine. Now I start my PC after fully installing Win 8. And it asks my product key again. Only this time the exact same key I...
Installation & Setup
My product key is a 'default' product key. Why?
I bought my Acer Aspire notebook with Win8 & a touchscreen new in Jan.2013. I have never been able to activate the product key, (it is being blocked). I have since found out that the number I located in the BIOS is a 'default' product key & is plastered all over the internet & certainly doesn't...
Windows Updates & Activation
Windows with no OS DVD and product key
Hi, I bought 8 Toshiba Laptops for my company on 3rd Feb 2013 from Dubai . The laptops details as follows Model: Thoshiba Laptop SC850 B560 i3 OS: Windows 8 single language No DVD's and product key given at the time of purchase so help me to get windows 8 single language software to...
Installation & Setup

Eight Forums Android App Eight Forums IOS App Follow us on Facebook