如何在Windows 10，Windows 8和Windows 7中查看产品密钥

1. 打开记事本。
2. 将以下文本复制并粘贴到“记事本”窗口中

   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

3. 将上面的文本保存到桌面上带有“ .vbs”扩展名的文件中。
   温馨提示：为确保正确保存扩展名为“ .vbs”的文件，可以键入文件名并用双引号引起来，例如“ BackupWindowsKey.vbs”。
   
4. 现在打开您的BackupWindowsKey.vbs文件
5. 瞧，您的产品密钥会显示在屏幕上！
   

我在Windows 7，Windows 8和Windows 10上测试了该技巧。它在所有提到的操作系统中均能完美运行。