Kung nawala o nakalimutan mo kung saan mo naimbak ang iyong key ng produkto ng Windows, mayroon akong solusyon para sa iyo. Ngayon makikita natin kung paano magagamit ang isang simpleng script ng VBS upang maipakita sa amin ang susi ng produkto ng isang naka-install na kopya ng Windows 10, Windows 8 o Windows 7. Ito ay isang simpleng solusyon upang makuha ang iyong susi ng produkto mula sa naka-install na OS sa iyong PC nang walang gamit ang anumang software ng third party. Dito na tayo
Anunsyo
Sa totoo lang, kanina pa ako nagpost ng katulad na solusyon na gumamit ng PowerShell. ngunit maraming mga gumagamit ang nagreklamo na nabigo ito para sa kanila. Maaaring mangailangan ang PowerShell ng karagdagang mga kasanayan sa gumagamit at labis na pag-aayos upang magpatakbo ng mga hindi naka-sign na cmdlet.
kung paano sasabihin kung naka-block ka sa snapchat
Kung ikukumpara sa PowerShell, ang solusyon sa VBScript na ito ay halos perpekto. Ang kailangan mo lang gawin ay i-click lamang ang file. Sa tingnan ang iyong key ng produkto ng Windows 10
- Buksan ang Notepad.
- Kopyahin at i-paste ang sumusunod na teksto sa window ng Notepad
Opsyon na Maliwanag na Dim objshell, path, DigitalID, Result Set objshell = CreateObject ('WScript.Shell') 'Itakda ang registry key path Path =' HKLM SOFTWARE Microsoft Windows NT CurrentVersion '' Registry key value DigitalID = objshell.RegRead (Path & 'DigitalProductId') Malabo ang ProductName, ProductID, ProductKey, ProductData 'Kumuha ng ProductName, ProductID, ProductKey ProductName =' Product Name: '& objshell.RegRead (Path &' ProductName ') ProductID =' Product ID: '& objshell. RegRead (Path & 'ProductID') ProductKey = 'Naka-install na Key:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Ipakita ang messbox kung i-save sa isang file Kung vbYes = MsgBox (ProductData & vblf & vblf & 'I-save sa isang file?', VbYesNo + vbQuestion, 'BackUp Windows Key Impormasyon') pagkatapos ay I-save ang ProductData End Kung 'I-convert ang binary sa chars Function ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Kasalukuyan, KeyOutput , Huling, keypart1, ipasok ang 'Suriin kung ang OS ay Windows 8 isWin8 = (Key (66) 6) At 1 Key (66) = (Key (66) And & HF7) O ((isWin8 And 2) * 4) i = 24 Maps = 'BCDFGHJKMPQRTVWXY2346789' Gawin Kasalukuyan = 0 j = 14 Gawin Kasalukuyan = Kasalukuyan * 256 Kasalukuyan = Key (j + KeyOffset) + Kasalukuyan Key (j + KeyOffset) = (Kasalukuyang 24) Kasalukuyan = Kasalukuyang Mod 24 j = j -1 Loop Habang j> = 0 i = i -1 KeyOutput = Mid (Maps, Kasalukuyan + 1, 1) & Huling KeyOutput = Kasalukuyang Loop Habang ako> = 0 Kung (isWin8 = 1) Pagkatapos keypart1 = Mid (KeyOutput, 2, Huling) ipasok = 'N' KeyOutput = Palitan (KeyOutput, keypart1, keypart1 at ipasok, 2, 1, 0) Kung Huling = 0 Pagkatapos KeyOutput = insert & KeyOutput End Kung ConvertToKey = Mid (KeyOutput, 1, 5) & '-' & Mid (KeyOutput, 6, 5) & '-' & Mid (KeyOutput, 11, 5) & '-' & Mid ( KeyOutput, 16, 5) & '-' & Mid (KeyOutput, 21, 5) End Function 'I-save ang data sa isang file Function Save (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' Kumuha ng kasalukuyang pangalan ng gumagamit UserName = objshell.ExpandEn environmentStrings ('% UserName%') 'Lumikha ng isang text file sa desktop fName =' C: Users '& UserName &' Desktop WindowsKeyI nfo.txt 'Itakda fso = CreateObject (' Scripting.FileSystemObject ') Itakda ang txt = fso.CreateTextFile (fName) txt. Writer Data Data txt. Close End Function - I-save ang teksto sa itaas sa isang file na may extension na '.vbs' sa Desktop.
Tip sa bonus: Upang matiyak na nai-save mo nang tama ang file sa extension na '.vbs', maaari mong i-type ang pangalan nito na nakapaloob sa dobleng mga quote, halimbawa, 'BackupWindowsKey.vbs'.
- Ngayon buksan ang iyong file na BackupWindowsKey.vbs
- Voila, ikaw ang susi ng produkto ay ipinapakita sa screen!
Mag-click dito upang i-download ang file na BackupWindowsKey.vbs
Sinubukan ko ang trick na ito sa Windows 7, Windows 8 at Windows 10. Gumagawa ito nang walang kamali-mali sa lahat ng nabanggit na mga operating system. Mga Kredito: hindi pagkakasundo @ MDL .
