怎么在win 7、win 8和win 10中查看产品密钥
如果你丢失或忘记了存储win产品密钥的位置，我会为你提供处理方案。今天你们将看到怎么使用容易的VBs脚本向你们展示已安装的win 7，win 8或win 10副本的产品密钥。这是一个容易的处理方案，可以从你安装在pC上的操作系统中提取产品密钥而无需使用任何第三方软件。开始了。
实际上，早些时候我发布了一个使用powershell 的类似处理方案。但是许多用户抱怨他们失败了。powershell或许需要额外的用户技能和额外的调整才能运行未签名的cmdlet。
与powershell相比，这个VBscript处理方案几乎是完海尔。你只需单击该文件直接。要查看你的win 7产品密钥
3. 选项明确
4.
5. dim objshell，path，digitalid，Result
6. 配置objshell = Createobject（“wscript.shell”）
7. '配置注册表键路径
8. path =“HKLM soFTwARE Microsoft win 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 win Key information”）则
19. 保存productdata
20. 万一
21.
22.
23.
24. '将二进制转换为字符
25. 函数ConvertToKey（Key）
26. Const Keyoffset = 52
27. dim iswinxp，Maps，i，j，Current，Keyoutput，Last，keypart1，insert
28. '检查操作系统是否为win 8
29. iswinxp =（Key（66） 6）和1
30. 键（66）=（键（66）和＆HF7）或（（iswinxp和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. 如果（iswinxp = 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 winKeyinfo.txt”
68. 配置fso = Createobject（“scripting.Filesystemobject”）
69. 配置txt = fso.CreateTextFile（fname）
70. txt.writeline数据
71. txt.Close
72. 结束功能
我在win 10，win 8和win 7上尝试了这个技巧。它在所有提到的操作系统中都能完美运行。