如何使用脚本或命令行查看 Windows 10 产品密钥？
有许多工具可以从实时系统或脱机计算机的注册表配置单元中提取产品密钥。 此外，这是一个小巧的 Vbscript，可获取当前 Windows 安装的产品密钥-无需第三方程序。 该脚本可在 Windows 7、8 和 Windows 10 上运行。以下是给大家整理的查看 Windows 10 产品密钥的两种方法，希望可以帮助到你哦。
方法1：使用 WMI 命令行或 PowerShell
使用以下 WMI 命令行来修复 Windows 安装的产品密钥。
| 1 | wmic path softwarelicensingservice get OA3xOriginalProductKey |
此方法检索存储在计算机的 UEFI/BIOS 中的激活密钥。
请注意，您需要在提升权限/管理员命令提示符窗口中运行上述命令。
或者，如果您使用的是 PowerShell，请在管理 PowerShell 窗口中运行以下命令以了解产品密钥：
| 1 | (Get-WmiObject -query 'select * from SoftwareLicensingService').OA3xOriginalProductKey |
在某些系统中，上述命令将输出标题 OA3xOriginalProductKey 和下面的空白行，不显示任何产品密钥。 如果设备没有嵌入式激活码/产品密钥，则会发生这种情况。
如果设备具有嵌入式固件激活密钥，它将显示在输出中。 如果输出为空白，则设备没有固件嵌入式激活密钥。 大多数设计为运行 Windows 8 或更高版本的 OEM 提供的设备都将具有固件嵌入式密钥。
方法2：使用脚本
重要：请注意，以下方法只是对 DigitalProductId 注册表值进行解码以获取零售产品密钥。 使用此方法检索的密钥可以是自动生成的通用 Windows 10 密钥（对于从 Windows 7 或 Windows 8 升级为数字授权的系统）。 它也可能是您在 Windows 10 安装过程中手动输入的零售版密钥（如果您早先购买了许可证）。 因此，如果您使用的是 Windows 10，建议您优先考虑第一种方法。
将以下代码复制到记事本，并将文件另存为 GetProductKey.vbs。
| 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70 | 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 |
如何使用脚本或命令行查看 Windows 10 产品密钥？
有许多工具可以从实时系统或脱机计算机的注册表配置单元中提取产品密钥。 此外，这是一个小巧的 Vbscript，可获取当前 Windows 安装的产品密钥-无需第三方程序。 该脚本可在 Windows 7、8 和 Windows 10 上运行。以下是给大家整理的查看 Windows 10 产品密钥的两种方法，希望可以帮助到你哦。
方法1：使用 WMI 命令行或 PowerShell
使用以下 WMI 命令行来修复 Windows 安装的产品密钥。
| 1 | wmic path softwarelicensingservice get OA3xOriginalProductKey |
此方法检索存储在计算机的 UEFI/BIOS 中的激活密钥。
请注意，您需要在提升权限/管理员命令提示符窗口中运行上述命令。
或者，如果您使用的是 PowerShell，请在管理 PowerShell 窗口中运行以下命令以了解产品密钥：
| 1 | (Get-WmiObject -query 'select * from SoftwareLicensingService').OA3xOriginalProductKey |
在某些系统中，上述命令将输出标题 OA3xOriginalProductKey 和下面的空白行，不显示任何产品密钥。 如果设备没有嵌入式激活码/产品密钥，则会发生这种情况。
如果设备具有嵌入式固件激活密钥，它将显示在输出中。 如果输出为空白，则设备没有固件嵌入式激活密钥。 大多数设计为运行 Windows 8 或更高版本的 OEM 提供的设备都将具有固件嵌入式密钥。
方法2：使用脚本
重要：请注意，以下方法只是对 DigitalProductId 注册表值进行解码以获取零售产品密钥。 使用此方法检索的密钥可以是自动生成的通用 Windows 10 密钥（对于从 Windows 7 或 Windows 8 升级为数字授权的系统）。 它也可能是您在 Windows 10 安装过程中手动输入的零售版密钥（如果您早先购买了许可证）。 因此，如果您使用的是 Windows 10，建议您优先考虑第一种方法。
将以下代码复制到记事本，并将文件另存为 GetProductKey.vbs。
| 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70 | 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 |