• Feature update to Windows 10, version 1607. Problems

Berton said:

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

Berton said:

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.

Berton said:

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.