Как посмотреть ключ продукта в Windows 10, Windows 8 и Windows 7

Если вы потеряли или забыли, где храните ключ продукта Windows, у меня есть решение для вас. Сегодня мы увидим, как можно использовать простой скрипт VBS, чтобы показать нам ключ продукта установленной копии Windows 10, Windows 8 или Windows 7. Это простое решение для извлечения ключа продукта из ОС, установленной на вашем компьютере, без использования стороннего программного обеспечения. Вот так.

Собственно, раньше я опубликовал подобное решение который использовал PowerShell. но многие пользователи жаловались, что им это не удается. PowerShell может потребовать дополнительных навыков пользователя и дополнительных настроек для запуска неподписанных командлетов.

По сравнению с PowerShell это решение VBScript почти идеально. Все, что вам нужно сделать, это просто щелкнуть файл. К просмотреть ключ продукта Windows 10

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

   Вариант явный. Тусклый objshell, путь, DigitalID, Результат. Установите objshell = CreateObject ("WScript. Shell ") 'Установить путь к ключу реестра Path =" HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \ "' Значение ключа реестра DigitalID = objshell. RegRead (Path & "DigitalProductId") Dim ProductName, ProductID, ProductKey, ProductData 'Получить ProductName, ProductID, ProductKey ProductName = "Product Name:" & objshell. RegRead (Путь & "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, insert' Проверить, является ли ОС 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 Текущее = Ключ (j + KeyOffset) + Текущая клавиша (j + KeyOffset) = (Current \ 24) Current = Current Mod 24 j = j -1 Цикл, пока j> = 0 i = i -1 KeyOutput = Mid (Maps, Current + 1, 1) & KeyOutput Last = Текущий цикл, пока я> = 0. Если (isWin8 = 1), то keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Then KeyOutput = вставить & 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 \" & UserName & "\ Desktop \ WindowsKeyInfo.txt" Установите fso = CreateObject ("Scripting. 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.