如何在Windows 10、Windows 8和Windows 7中查看产品密钥
如何在Windows 10、Windows 8和Windows 7中查看产品密钥
如果您丢失或忘记了存储Windows产品密钥的位置，我会为您提供解决方案。今天我们将看到如何使用简单的VBS脚本向我们展示已安装的Windows 10，Windows 8或Windows 7副本的产品密钥。这是一个简单的解决方案，可以从您安装在PC上的操作系统中提取产品密钥而无需使用任何第三方软件。开始了。
实际上，早些时候我发布了一个使用PowerShell 的类似解决方案。但是很多用户抱怨他们失败了。PowerShell可能需要额外的用户技能和额外的调整才能运行未签名的cmdlet。
与PowerShell相比，这个VBScript解决方案几乎是完美的。您只需单击该文件即可。要查看您的Windows 10产品密钥
- 打开记事本。
- 将以下文本复制并粘贴到记事本窗口中
3. 选项明确
4.
5. Dim objshell，path，DigitalID，Result
6. 设置objshell = CreateObject（“WScript.Shell”）
7. '设置注册表键路径
8. Path =“HKLM SOFTWARE Microsoft Windows NT CurrentVersion ”
9. '注册表键值
10. DigitalID = objshell.RegRead（Path＆“DigitalProductId”）
11. Dim ProductName，ProductID，ProductKey，ProductData
12. '获取ProductName，ProductID，ProductKey
13. ProductName =“产品名称：”＆objshell.RegRead（Path＆“ProductName”）
14. ProductID =“Product ID：”＆objshell.RegRead（Path＆“ProductID”）
15. ProductKey =“已安装的密钥：”和ConvertToKey（DigitalID）
16. ProductData = ProductName＆vbNewLine＆ProductID＆vbNewLine＆ProductKey
17. '如果保存到文件，则显示messbox
18. 如果vbYes = MsgBox（ProductData＆vblf＆vblf＆“保存到文件？”，vbYesNo + vbQuestion，“BackUp Windows Key Information”）则
19. 保存ProductData
20. 万一
21.
22.
23.
24. '将二进制转换为字符
25. 函数ConvertToKey（Key）
26. Const KeyOffset = 52
27. Dim isWin8，Maps，i，j，Current，KeyOutput，Last，keypart1，insert
28. '检查操作系统是否为Windows 8
29. isWin8 =（Key（66） 6）和1
30. 键（66）=（键（66）和＆HF7）或（（isWin8和2）* 4）
31. 我= 24
32. 地图=“BCDFGHJKMPQRTVWXY2346789”
33. 做
34. 电流= 0
35. j = 14
36. 做
37. 电流=电流* 256
38. Current = Key（j + KeyOffset）+ Current
39. 键（j + KeyOffset）=（当前 24）
40. 电流=电流模式24
41. j = j -1
42. 循环当j> = 0时
43. i = i -1
44. KeyOutput = Mid（地图，当前+ 1,1）和KeyOutput
45. 最后=当前
46. 循环时i> = 0
47.
48. 如果（isWin8 = 1）那么
49. keypart1 = Mid（KeyOutput，2，Last）
50. insert =“N”
51. KeyOutput = Replace（KeyOutput，keypart1，keypart1＆insert，2,1,0）
52. 如果Last = 0则KeyOutput = insert＆KeyOutput
53. 万一
54.
55.
56. ConvertToKey = Mid（KeyOutput，1,5）＆“ - ”＆Mid（KeyOutput，6,5）＆“ - ”＆Mid（KeyOutput，11,5）＆“ - ”＆Mid（KeyOutput，16,5）＆ “ - ”和Mid（KeyOutput，21,5）
57.
58.
59. 结束功能
60. '将数据保存到文件中
61. 功能保存（数据）
62. Dim fso，fName，txt，objshell，UserName
63. 设置objshell = CreateObject（“wscript.shell”）
64. '获取当前用户名
65. UserName = objshell.ExpandEnvironmentStrings（“％UserName％”）
66. '在桌面上创建一个文本文件
67. fName =“C： Users ”＆UserName＆“ Desktop WindowsKeyInfo.txt”
68. 设置fso = CreateObject（“Scripting.FileSystemObject”）
69. 设置txt = fso.CreateTextFile（fName）
70. txt.Writeline数据
71. txt.Close
72. 结束功能
- 将上面的文本保存到桌面上带有“.vbs”扩展名的文件中。
额外提示：要确保使用“.vbs”扩展名正确保存文件，可以使用双引号键入其名称，例如“BackupWindowsKey.vbs”。
- 现在打开BackupWindowsKey.vbs文件
- 瞧，您的产品密钥显示在屏幕上！
我在Windows 7，Windows 8和Windows 10上测试了这个技巧。它在所有提到的操作系统中都能完美运行。
相关文章
- 1在Windows 10上未检测到Nvidia图形卡[简易解决方案]
- 2win10产品密钥:Win10专业版激活码2019
- 3已解决：Windows10 20H2版本的功能更新安装失败
- 4修复Windows 10下更新KB5006670打印机错误 0x00000709
- 5Win10哪个版本最流畅！游戏玩家首选win10专业版
- 6已解决：Windows10中的PFN LIST CORRUPT蓝屏错误
- 7win10装机助手|win10装机教程
- 82019全新Win10专业版激活密钥分享
- 9msdn 1809|Win10 1809专业版LTSC 2019 ISO镜像
- 10win10禁用windows键?win10 win键 锁定方法