1. 首頁 > 云知道 > >

忘記Windows10產品密鑰不用怕 windows8密鑰

小知識

windows8密鑰（忘記Windows10產品密鑰不用怕）
Windows產品密鑰是很重要的一個密碼，它是我們重新安裝激活操作系統時必須要使用的，如果丟失或忘記了Windows產品密鑰，將給我們帶來很大的麻煩 。
下面我將提供一個解決方案，你將看到如何使用簡單的VBS腳本來顯示已安裝的Windows 10、Windows 8或Windows 7系統的產品密鑰 。這是從電腦上安裝的操作系統中提取產品密鑰的一個非常簡單的解決方案，無需使用任何第三方軟件 。
【忘記Windows10產品密鑰不用怕 windows8密鑰】與其它方法相比，這個VBScript解決方案幾乎是完美的，用戶只需要單擊文件即可 。

忘記Windows10產品密鑰不用怕 windows8密鑰


一、創建腳本文件要查看電腦上安裝的Windows 10產品密鑰，請執行以下操作：
1.打開記事本 。
2.將以下文本復制并粘貼到“記事本”窗口中：
Option Explicit   Dim objshell,path,DigitalID, Result  Set objshell = CreateObject(WScript.Shell) 'Set registry key path Path = HKLMSOFTWAREMicrosoftWindows NTCurrentVersion '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 & DesktopWindowsKeyInfo.txt     Set fso = CreateObject(Scripting.FileSystemObject)     Set txt = fso.CreateTextFile(fName)     txt.Writeline Data     txt.Close End Function

推薦閱讀