New
#111
What do you think of this for retrieving Windows key?
How to retrieve your Win10 key.
What do you think of this for retrieving Windows key?
How to retrieve your Win10 key.
So, what's the consensus? If I can do a fresh install of win 10 1607, will it self activate, or not?
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
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:
Attachment 122203
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.