Team OS : Your Only Destination To Custom OS !!

Welcome to TeamOS Community, Register or Login to the Community to Download Torrents, Get Access to Shoutbox, Post Replies, Use Search Engine and many more features. Register Today!

Tutorials How to view win 10 product key

Mr. Spacely

šŸ¤“ Super Admin
Uploader
Downloaded
153.9 GB
Uploaded
43.8 TB
Ratio
291.19
Seedbonus
12,530,025
Upload Count
10981 (10981)
Member for 8 years
You want to know your win 10 product key whitout going to settings or "My Computer"?
Now you can, whit just 1 click of your mouse and all you need to do is open notepad then copy - paste this code then save it whit .vbs

Option Explicit

Dim objshell,path,DigitalID, Result
Set objshell = CreateObject("WScript.Shell")
'Set registry key path
Path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
'Registry key value
DigitalID = objshell.RegRead(Path & "DigitalProductId")
Dim ProductName,ProductID,ProductKey,ProductData
'Get ProductName, ProductID, ProductKey
ProductName = "Product Name: " & objshell.RegRead(Path & "ProductName")
ProductID = "Product ID: " & objshell.RegRead(Path & "ProductID")
ProductKey = "Installed Key: " & ConvertToKey(DigitalID)
ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
'Show messbox if save to a file
If vbYes = MsgBox(ProductData & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information") then
Save ProductData
End If



'Convert binary to chars
Function ConvertToKey(Key)
Const KeyOffset = 52
Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
'Check if OS is Windows 8
isWin8 = (Key(66) \ 6) And 1
Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)
i = 24
Maps = "BCDFGHJKMPQRTVWXY2346789"
Do
Current= 0
j = 14
Do
Current = Current* 256
Current = Key(j + KeyOffset) + Current
Key(j + KeyOffset) = (Current \ 24)
Current=Current Mod 24
j = j -1
Loop While j >= 0
i = i -1
KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutput
Last = Current
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


ConvertToKey = Mid(KeyOutput, 1, 5) & "-" & Mid(KeyOutput, 6, 5) & "-" & Mid(KeyOutput, 11, 5) & "-" & Mid(KeyOutput, 16, 5) & "-" & Mid(KeyOutput, 21, 5)


End Function
'Save data to a file
Function Save(Data)
Dim fso, fName, txt,objshell,UserName
Set objshell = CreateObject("wscript.shell")
'Get current user name
UserName = objshell.ExpandEnvironmentStrings("%UserName%")
'Create a text file on desktop
fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set txt = fso.CreateTextFile(fName)
txt.Writeline Data
txt.Close
End Function


and if everything goes good and it should be good you will have picture like this:

NhjDo.png


and when you run that script

Nhdrm.png


You will be given an option to export (save) your registration info if you select "Yes" you will get small .txt file on your desktop named WindowsKeyInfo when that text file is opened
you will get following informations:

Product Name: Showing your OS version
Product ID: New ID is generated every time you install new OS
Installed Key: key used to activate windows

NhTC5.png


--- NOTE --

It's not working if you activated using Digital License
 
Last edited by a moderator:

Azamo1

āœ… Verified Member
Member
Downloaded
245 GB
Uploaded
493.5 GB
Ratio
2.01
Seedbonus
107,778
Upload Count
0 (0)
Member for 6 years
thanks
 

icloudsr

Member
Downloaded
46.2 GB
Uploaded
169 GB
Ratio
3.66
Seedbonus
94
Upload Count
12 (12)
Member for 7 years
@Iceman96 thanks buddy, btw i guess this doesn't work for the machines which used Digital License Activation :)
 

sopna28

Member
Downloaded
14.6 GB
Uploaded
5.5 GB
Ratio
0.38
Seedbonus
6
Upload Count
0 (0)
Member for 5 years
Iceman96
thanks boss.
 

Mr. Spacely

šŸ¤“ Super Admin
Uploader
Downloaded
153.9 GB
Uploaded
43.8 TB
Ratio
291.19
Seedbonus
12,530,025
Upload Count
10981 (10981)
Member for 8 years
@Iceman96 thanks buddy, btw i guess this doesn't work for the machines which used Digital License Activation:)

Nope
 

iyadsh

Member
Downloaded
44.1 GB
Uploaded
10.9 GB
Ratio
0.25
Seedbonus
504
Upload Count
0 (0)
Member for 5 years
thanks
 

Wizzie2k

Member
Downloaded
206.8 GB
Uploaded
118.2 TB
Ratio
585.06
Seedbonus
2,285,052
Upload Count
0 (0)
Member for 5 years
Nice tutorial m8 :clap:
 
Top