Как посмотреть ключ продукта в 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") 'Установить путь к ключу реестра Путь = "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \" 'Значение ключа реестра DigitalID = objshell.RegRead (Путь и «DigitalProductId») Dim ProductName, ProductID, ProductKey, ProductData 'Получить ProductName, ProductID, ProductKey ProductName = "Название продукта:" & objshell.RegRead (Путь & "Название продукта") ProductID = "Идентификатор продукта:" & objshell.RegRead (Путь & "Код продукта") ProductKey = "Установленный ключ:" & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Показывать окно сообщений при сохранении в файл Если vbYes = MsgBox (ProductData & vblf & vblf & «Сохранить в файл?», VbYesNo + vbQuestion, «Резервное копирование информации о ключах Windows»), то Сохранить данные о продукте Конец, если
    'Преобразование двоичного кода в символы Функция ConvertToKey (Ключ) Const KeyOffset = 52 Dim isWin8, Карты, i, j, Current, KeyOutput, Last, keypart1, insert 'Проверьте, является ли ОС Windows 8 isWin8 = (Ключ (66) \ 6) И 1 Клавиша (66) = (Клавиша (66) И & HF7) Или ((isWin8 И 2) * 4) я = 24 Maps = "BCDFGHJKMPQRTVWXY2346789" Делать Текущий = 0 j = 14 Делать Текущий = Текущий * 256 Текущий = Ключ (j + KeyOffset) + Текущий Ключ (j + KeyOffset) = (Текущий \ 24) Current = Текущая модификация 24 j = j -1 Цикл пока j> = 0 я = я -1 KeyOutput = Mid (Карты, Текущий + 1, 1) и KeyOutput Последний = Текущий Цикл пока я> = 0
    Если (isWin8 = 1) Тогда keypart1 = Mid (KeyOutput, 2, Последний) insert = "N" KeyOutput = Replace (KeyOutput, keypart1, keypart1 и insert, 2, 1, 0) Если Last = 0, то KeyOutput = insert & KeyOutput Конец, если
    ConvertToKey = Mid (KeyOutput, 1, 5) & «-» и Mid (KeyOutput, 6, 5) & «-» и Mid (KeyOutput, 11, 5) & «-» и Mid (KeyOutput, 16, 5) & «-» и Mid (KeyOutput, 21, 5)
    Конечная функция 'Сохранить данные в файл Функция Сохранить (данные) Тусклый fso, fName, txt, objshell, UserName Установите objshell = CreateObject ("wscript.shell") 'Получить текущее имя пользователя UserName = objshell.ExpandEnvironmentStrings ("% UserName%") 'Создайте текстовый файл на рабочем столе fName = "C: \ Users \" & Имя пользователя & "\ Desktop \ WindowsKeyInfo.txt" Установите fso = CreateObject ("Scripting.FileSystemObject") Установите txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close Конечная функция 
  3. Сохраните приведенный выше текст в файл с расширением «.vbs» на рабочем столе.
    Дополнительный совет: чтобы убедиться, что вы правильно сохраняете файл с расширением «.vbs», вы можете ввести его имя, заключенное в двойные кавычки, например, «BackupWindowsKey.vbs».
    резервное копирование ключа продукта Windows Windows 10
  4. Теперь откройте файл BackupWindowsKey.vbs.
  5. Вуаля, ваш ключ продукта отображается на экране!
    показать ключ продукта Windows 10

Щелкните здесь, чтобы загрузить файл BackupWindowsKey.vbs

Я тестировал этот трюк на Windows 7, Windows 8 и Windows 10. Он безупречно работает во всех упомянутых операционных системах. Кредиты: несуществование @ MDL.

Добавить комментарий

Ваш адрес email не будет опубликован.