Page 12 of 14 FirstFirst ... 21011121314 LastLast
  1.    20 Feb 2017 #111
    Join Date : Feb 2017
    Posts : 68
    Windows 10 Pro
    Thread Starter

    What do you think of this for retrieving Windows key?

    How to retrieve your Win10 key.
      My ComputerSystem Spec
  2.    20 Feb 2017 #112
    Join Date : Aug 2014
    Forever West
    Posts : 3,920
    Win10 Home and Pro, Win10 Insider Preview, Win7 Home, Linux Mint

    Quote Originally Posted by David49 View Post
    What do you think of this for retrieving Windows key?

    How to retrieve your Win10 key.
    I'd give it a pass-by, can't Copy or Save, would have to do a screenshot and Paste into Paint to save it.
      My ComputerSystem Spec
  3.    20 Feb 2017 #113
    Join Date : Feb 2017
    Posts : 68
    Windows 10 Pro
    Thread Starter

    So, what's the consensus? If I can do a fresh install of win 10 1607, will it self activate, or not?
      My ComputerSystem Spec
  4.    21 Feb 2017 #114
    Join Date : Aug 2014
    Forever West
    Posts : 3,920
    Win10 Home and Pro, Win10 Insider Preview, Win7 Home, Linux Mint

    Quote Originally Posted by David49 View Post
    So, what's the consensus? If I can do a fresh install of win 10 1607, will it self activate, or not?
    It's worked that way for the few times I needed to as long as I had an Internet connection or after getting connected, right-clicking Start, clicking System and check the Activate at the bottom of that panel.
      My ComputerSystem Spec
  5.    21 Feb 2017 #115
    Join Date : Jan 2014
    Posts : 1,391
    Windows 10 Pro (32-bit) 16299.15

    I would use ShowKeyPlus to retrieve the key. With any luck it will also show your Windows 8.x key which, if you need a key at all, should be the one. Don't post it on here though, and don't enter any key during the install process when it asks for a key - you shouldn't need to.

    My experience on testing it last night was the same as Berton - it activated 1607 after clean install without my needing to do anything.

    I'm not 100% sure this would work but another thing to do would be to follow the steps here to copy the gatherosstate program off the ISO installer, run it on desktop, and then save the GenuineTicket.XML file which it produces on a separate drive.
    Clean Install Windows 10 Directly without having to Upgrade First
      My ComputerSystem Spec
  6.    21 Feb 2017 #116
    Join Date : Oct 2013
    A Finnish expat in Germany
    Posts : 12,939
    Windows 10 Pro

    Quote Originally Posted by Berton View Post
    I'd give it a pass-by, can't Copy or Save, would have to do a screenshot and Paste into Paint to save it.
    VBS is flexible and versatile. I just added a few lines in script to write the product key to file C:\Users\Public\Documents\ProductKey.txt. The code lines I added to original script highlighted below:

    Code:
    Set WshShell = CreateObject("WScript.Shell")
    Set objFSO=CreateObject("Scripting.FileSystemObject")
    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
    outFile="C:\Users\Public\Documents\ProductKey.txt"
    Set objFile = objFSO.CreateTextFile(outFile,True)
    objFile.Write KeyOutput & vbCrLf
    objFile.Close
    End Function

    Just open the text file created to copy product key as an alphanumerical string, paste it wherever you need to.

    Kari
      My ComputerSystem Spec
  7.    21 Feb 2017 #117
    Join Date : Aug 2014
    Forever West
    Posts : 3,920
    Win10 Home and Pro, Win10 Insider Preview, Win7 Home, Linux Mint

    Quote Originally Posted by Kari View Post
    VBS is flexible and versatile. I just added a few lines in script to write the product key to file C:\Users\Public\Documents\ProductKey.txt. The code lines I added to original script highlighted below:

    Code:
    Set WshShell = CreateObject("WScript.Shell")
    Set objFSO=CreateObject("Scripting.FileSystemObject")
    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
    outFile="C:\Users\Public\Documents\ProductKey.txt"
    Set objFile = objFSO.CreateTextFile(outFile,True)
    objFile.Write KeyOutput & vbCrLf
    objFile.Close
    End Function

    Just open the text file created to copy product key as an alphanumerical string, paste it wherever you need to.

    Kari
    I get this message:
    Click image for larger version. 

Name:	GetKey.png 
Views:	16 
Size:	30.5 KB 
ID:	122203
      My ComputerSystem Spec
  8.    21 Feb 2017 #118
    Join Date : Oct 2013
    A Finnish expat in Germany
    Posts : 12,939
    Windows 10 Pro

    Quote Originally Posted by Berton View Post
    I get this message:
    The reason I used Public Documents folder is that in using Public user you avoid all permission issues. Just change the path to Public instead of your profile.
      My ComputerSystem Spec
  9.    21 Feb 2017 #119
    Join Date : Aug 2014
    Forever West
    Posts : 3,920
    Win10 Home and Pro, Win10 Insider Preview, Win7 Home, Linux Mint

    I see. That worked.
      My ComputerSystem Spec
  10.    21 Feb 2017 #120
    Join Date : Oct 2013
    A Finnish expat in Germany
    Posts : 12,939
    Windows 10 Pro

    Quote Originally Posted by Berton View Post
    I see. That worked.

    OK, I thought this a bit more. I added code to run the script elevated, which allows writing the text file anywhere in your system, root of drive C: or your user folders. Anywhere.

    Below the final code. Original script (everything not highlighted) by member GuidoLS at Hexus.net (How to retrieve your Win10 key.), yellow highlighted parts with blue text added by me earlier to write key to a text file, with bold red text added now to run script elevated:

    Code:
    If WScript.Arguments.length =0 Then
    Set objShell = CreateObject("Shell.Application")
    
    objShell.ShellExecute "wscript.exe", Chr(34) & _
    WScript.ScriptFullName & Chr(34) & " uac", "", "runas", 1
    Else
    
    Set WshShell = CreateObject("WScript.Shell")
    Set objFSO=CreateObject("Scripting.FileSystemObject")
    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
    outFile="C:\ProductKey.txt"
    Set objFile = objFSO.CreateTextFile(outFile,True)
    objFile.Write KeyOutput & vbCrLf
    objFile.Close
    End Function
    End If

    Save script as Key.vbs selecting Save As Type = All files. Run it normally, it will be run elevated automatically writing key to C:\ProductKey.txt, or you can change path to whatever you want to.
      My ComputerSystem Spec

 
Page 12 of 14 FirstFirst ... 21011121314 LastLast


Similar Threads
Thread Forum
Solved Problems after Feature update to Windows 10, version 1607
104210104211 After applying this update I found a number of problems. The most disturbing was that all restore points had been deleted and that system protection had been turned off. I also found that Microsoft Games for Windows 8 v1.2 no longer...
General Support
Cumulative Update for Windows 10 Version 1607 problems
Cumulative Update for Windows 10 Version 1607 for x64-based Systems (KB3194496) Three days ago my desktop tried to update 1607 3 times. Each time on reboot it says failed to update and reverts. Each day it tries again at shutdown. Yesterday...
Windows Updates and Activation
Feature update to Windows 10, version 1607 - WHY 3+ GIGS?
Hey, ??? I'm just getting a Windows update now (ca. 10:13 AM Brisbane Australia) - my laptop screen suddenly went black and when things reappeared, previously-open windows were misaligned and differently sized. The Windows Settings box which...
Windows Updates and Activation
Feature update to Windows 10 Education, version 1607, Error 0x8000ffff
Feature update just became available today for us. Out of 4 laptops its failed on 4. W10 1507 education has been running for a few weeks. Updates to 1507 were working fine. Installation Failure: Windows failed to install the following update with...
Windows Updates and Activation
Feature update to Windows 10, version 1607 - Error 0xc1900204
The issue in short is in the title. Feature update to Windows 10, version 1607 - Error 0xc1900204 The update does not seems to install. Any fix to this issue? :(
Windows Updates and Activation
Our Sites
Site Links
About Us
Windows 10 Forums is an independent web site and has not been authorized, sponsored, or otherwise approved by Microsoft Corporation. "Windows 10" and related materials are trademarks of Microsoft Corp.

Designer Media Ltd
All times are GMT -5. The time now is 14:55.
Find Us
Twitter Facebook Google+ Ten Forums iOS App Ten Forums Android App



Windows 10 Forums