Как да видите своя продуктов ключ в Windows 10, Windows 8 и Windows 7
Ако сте загубили или забравили къде сте съхранили продуктовия си ключ за Windows, имам решение за вас. Днес ще видим как може да се използва прост VBS скрипт, за да ни покаже продуктовия ключ на инсталирано копие на Windows 10, Windows 8 или Windows 7. Това е просто решение да извлечете продуктовия си ключ от операционната система, инсталирана на вашия компютър, без да използвате софтуер на трети страни. Ето ни.
Реклама
Всъщност по-рано публикувах a подобно решение който използва PowerShell. но много потребители се оплакаха, че не им помага. PowerShell може да изисква допълнителни потребителски умения и допълнителни настройки, за да изпълнява неподписани команди.
В сравнение с PowerShell, това VBScript решение е почти перфектно. Всичко, което трябва да направите, е просто да щракнете върху файла. Да се прегледайте своя продуктов ключ за Windows 10
- Отворете Notepad.
- Копирайте и поставете следния текст в прозореца на Notepad
Изрична опция. Dim objshell, път, DigitalID, Резултат. Задайте objshell = CreateObject("WScript. Shell") 'Задаване на път на ключа в системния регистър Път = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\" 'Стойност на ключа в регистъра DigitalID = objshell. RegRead (Path & "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Вземете ProductName, ProductID, ProductKey ProductName = "Име на продукта: " & objshell. RegRead (Path & "ProductName") ProductID = "Product ID: " & objshell. RegRead (Path & "ProductID") ProductKey = "Инсталиран ключ: " & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Показване на кутия за съобщения, ако запишете във файл. Ако vbYes = MsgBox (ProductData & vblf & vblf & "Save to a file?", vbYesNo + vbQuestion, "Резервно копие на информация за ключ на Windows"), тогава запишете ProductData. Край, ако. 'Преобразуване на двоичен файл в знаци Функция ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, вмъкнете 'Проверете дали OS е Windows 8 isWin8 = (Key (66) \ 6) И 1 ключ (66) = (Ключ (66) И &HF7) Или ((isWin8 И 2) * 4) i = 24 карти = "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 (Карти, Current+ 1, 1) & KeyOutput Last = Текущ цикъл, докато i >= 0. Ако (isWin8 = 1) Тогава keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Замяна (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) Ако Last = 0 Тогава KeyOutput = insert & KeyOutput End If. ConvertToKey = Mid (KeyOutput, 1, 5) & "-" & Mid (KeyOutput, 6, 5) & "-" & Mid (KeyOutput, 11, 5) & "-" & Mid (KeyOutput, 16, 5) & "-" и средата (KeyOutput, 21, 5) Крайна функция 'Запазване на данни във файл Функция Запазване (данни) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject("wscript.shell") 'Вземете текущ потребителско име. Потребителско име = objshell. ExpandEnvironmentStrings("%UserName%") 'Създайте текстов файл на работния плот. fName = "C:\Users\" & UserName & "\Desktop\WindowsKeyInfo.txt" Задайте fso = CreateObject("Scripting. FileSystemObject") Задайте txt = fso. Създаване на текстов файл (fName) txt. Writeline Data txt. Функция за затваряне на края
- Запазете текста по-горе във файл с разширението ".vbs" на работния плот.
Бонус съвет: За да сте сигурни, че записвате файла правилно с разширението ".vbs", можете да въведете името му, затворено в двойни кавички, например "BackupWindowsKey.vbs".
- Сега отворете своя файл BackupWindowsKey.vbs
- Voila, вашият продуктов ключ се показва на екрана!
Щракнете тук, за да изтеглите файла BackupWindowsKey.vbs
Тествах този трик на Windows 7, Windows 8 и Windows 10. Работи безупречно във всички споменати операционни системи. Кредити: глупост @ MDL.