日本免费全黄少妇一区二区三区-高清无码一区二区三区四区-欧美中文字幕日韩在线观看-国产福利诱惑在线网站-国产中文字幕一区在线-亚洲欧美精品日韩一区-久久国产精品国产精品国产-国产精久久久久久一区二区三区-欧美亚洲国产精品久久久久

  1. 首頁(yè) > 云知道 > >

找回激活密鑰方法 win10產(chǎn)品密鑰在哪里能找回來(lái)

云知道

Windows產(chǎn)品密鑰是很重要的一個(gè)密碼 ， 它是我們重新安裝激活操作系統(tǒng)時(shí)必須要使用的 ， 如果丟失或忘記了Windows產(chǎn)品密鑰 ， 將給我們帶來(lái)很大的麻煩 。
下面我將提供一個(gè)解決方案 ， 你將看到如何使用簡(jiǎn)單的VBS腳本來(lái)顯示已安裝的Windows 10、Windows 8或Windows 7系統(tǒng)的產(chǎn)品密鑰 。這是從電腦上安裝的操作系統(tǒng)中提取產(chǎn)品密鑰的一個(gè)非常簡(jiǎn)單的解決方案 ， 無(wú)需使用任何第三方軟件 。
與其它方法相比 ， 這個(gè)VBScript解決方案幾乎是完美的 ， 用戶(hù)只需要單擊文件即可 。

找回激活密鑰方法 win10產(chǎn)品密鑰在哪里能找回來(lái)


一、創(chuàng)建腳本文件要查看電腦上安裝的Windows 10產(chǎn)品密鑰 ， 請(qǐng)執(zhí)行以下操作：
1.打開(kāi)記事本 。
2.將以下文本復(fù)制并粘貼到“記事本”窗口中：
Option ExplicitDim objshell,path,DigitalID, ResultSet 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 = https://www.jinnalai.com/n/ProductName& vbNewLine & ProductID& vbNewLine & ProductKey'Show messbox if save to a fileIf vbYes = MsgBox(ProductData& vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "BackUp Windows Key Information") thenSave ProductDataEnd If'Convert binary to chars Function ConvertToKey(Key)Const KeyOffset = 52Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert'Check if OS is Windows 8isWin8 = (Key(66) \ 6) And 1Key(66) = (Key(66) And &HF7) Or ((isWin8 And 2) * 4)i = 24Maps = "BCDFGHJKMPQRTVWXY2346789"DoCurrent= 0j = 14DoCurrent = Current* 256Current = Key(j + KeyOffset) + CurrentKey(j + KeyOffset) = (Current \ 24)Current=Current Mod 24j = j -1Loop While j >= 0i = i -1KeyOutput = Mid(Maps,Current+ 1, 1) & KeyOutputLast = CurrentLoop While i >= 0If (isWin8 = 1) Thenkeypart1 = Mid(KeyOutput, 2, Last)insert = "N"KeyOutput = Replace(KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)If Last = 0 Then KeyOutput = insert & KeyOutputEnd IfConvertToKey = 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,UserNameSet objshell = CreateObject("wscript.shell")'Get current user nameUserName = objshell.ExpandEnvironmentStrings("%UserName%")'Create a text file on desktopfName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt"Set fso = CreateObject("Scripting.FileSystemObject")Set txt = fso.CreateTextFile(fName)txt.Writeline Datatxt.Close End Function 3.單擊“文件－另存為”命令 ， 在“保存類(lèi)型”中選擇“所有文件” ， 在“文件名”中將上面的文本保存到桌面上帶有“ .vbs”擴(kuò)展名的文件中 ， 文件名可以自己隨意命名 。
找回激活密鑰方法 win10產(chǎn)品密鑰在哪里能找回來(lái)


提示：為確保正確保存擴(kuò)展名為“ .vbs”的文件 ， 可以鍵入文件名并用雙引號(hào)引起來(lái) ， 例如“BackupWindowsKey.vbs” 。
二、查看/備份Windows10產(chǎn)品密鑰現(xiàn)在打開(kāi)BackupWindowsKey.vbs文件,瞧 ， Windows10產(chǎn)品密鑰會(huì)顯示在屏幕上！把它記錄下來(lái) ， 保存到一個(gè)安全的地方 。
找回激活密鑰方法 win10產(chǎn)品密鑰在哪里能找回來(lái)


【找回激活密鑰方法 win10產(chǎn)品密鑰在哪里能找回來(lái)】

推薦閱讀