Як переглянути ключ продукту в Windows 10, Windows 8 і Windows 7

Якщо ви втратили або забули, де зберігали ключ продукту Windows, у мене є рішення для вас. Сьогодні ми побачимо, як простий скрипт VBS можна використовувати, щоб показати нам ключ продукту інстальованої копії Windows 10, Windows 8 або Windows 7. Це просте рішення для вилучення ключа продукту з ОС, встановленої на вашому ПК, без використання стороннього програмного забезпечення. Ось і ми.

Власне, раніше я писав a подібне рішення який використовував PowerShell. але багато користувачів скаржилися, що це їм не вдається. PowerShell може вимагати додаткових навичок користувача та додаткових налаштувань для запуску непідписаних командлетів.

У порівнянні з PowerShell, це рішення VBScript майже ідеальне. Все, що вам потрібно зробити, це просто клацнути файл. До переглянути ключ продукту Windows 10

1. Відкрийте Блокнот.
2. Скопіюйте та вставте наступний текст у вікно Блокнота

   Явний варіант. 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 = "Ідентифікатор продукту: " & objshell. RegRead (Path & "ProductID") ProductKey = "Встановлений ключ: " & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Показати повідомлення, якщо збережено у файлі. Якщо vbYes = MsgBox (ProductData & vblf & vblf & "Зберегти у файл?", vbYesNo + vbQuestion, "Резервне копіювання інформації про ключ Windows"), то збережіть дані продукту. Кінець Якщо. 'Перетворити двійковий файл у символи Функція ConvertToKey (Key) Const KeyOffset = 52 Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, вставте 'Перевірте, чи ОС Windows 8 isWin8 = (Ключ (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) + Поточний ключ (j + KeyOffset) = (Поточний \ 24) Current=Current Mod 24 j = j -1 Loop While j >= 0 i = i -1 KeyOutput = Середній (Maps, Current+ 1, 1) & KeyOutput Останній = Поточний цикл при i >= 0. Якщо (isWin8 = 1) Тоді keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Замінити (KeyOutput, keypart1, keypart1 & вставка, 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) End Function 'Збереження даних у файлі Функція Save (Data) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject("wscript.shell") 'Отримати поточний ім'я користувача. Ім'я користувача = objshell. ExpandEnvironmentStrings("%UserName%") 'Створіть текстовий файл на робочому столі. fName = "C:\Users\" & Ім'я користувача & "\Desktop\WindowsKeyInfo.txt" Встановіть fso = CreateObject("Сценарії. FileSystemObject") Встановіть txt = fso. CreateTextFile (fName) txt. Writeline Data txt. Функція закриття кінця 
   

3. Збережіть текст вище у файл з розширенням ".vbs" на робочому столі.
   Бонусна порада: щоб переконатися, що ви зберегли файл правильно з розширенням ".vbs", ви можете ввести його назву, узяту в подвійні лапки, наприклад, "BackupWindowsKey.vbs".
   
4. Тепер відкрийте файл BackupWindowsKey.vbs
5. Вуаля, ваш ключ продукту відображається на екрані!
   

Натисніть тут, щоб завантажити файл BackupWindowsKey.vbs

Я перевірив цей трюк на Windows 7, Windows 8 і Windows 10. Він бездоганно працює у всіх згаданих операційних системах. Кредити: нонсенс @ MDL.