Главная Скрипты И Настройки Как посмотреть ключ продукта в Windows 10, Windows 8 и Windows 7

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



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

Реклама


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

как расставить роли по разногласиям

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

  1. Откройте Блокнот.
  2. Скопируйте и вставьте следующий текст в окно Блокнота
    Option Explicit Dim objshell, path, DigitalID, Result Set 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 (Path &' ProductName ') ProductID =' Product ID: '& objshell. RegRead (Path & 'ProductID') ProductKey = 'Установленный ключ:' & ConvertToKey (DigitalID) ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey 'Показать окно сообщений при сохранении в файл Если vbYes = MsgBox (ProductData & vblf & vblf & 'Сохранить в файл?', VbYesNo + vbQuestion, 'BackUp Windows Key Information') then Save ProductData End If 'Преобразовать двоичный файл в символы Функция 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) Или ((isWin8 And 2) * 4) i = 24 Maps = '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 (Maps, Current + 1, 1) & KeyOutput Last = текущий цикл Пока i> = 0 Если (isWin8 = 1) Тогда keypart1 = Mid (KeyOutput, 2, Last) insert = 'N' KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0) If Last = 0 Then KeyOutput = insert & KeyOutput End If ConvertToKey = Mid (KeyOutput, 1, 5) & '-' & Mid (KeyOutput, 6, 5) & '-' и Mid (KeyOutput, 11, 5) & '-' & Mid ( KeyOutput, 16, 5) & '-' & Mid (KeyOutput, 21, 5) End Function 'Сохранить данные в файл Функция Сохранить (данные) Dim fso, fName, txt, objshell, UserName Set objshell = CreateObject (' wscript. shell ')' Получить текущее имя пользователя UserName = objshell.ExpandEnvironmentStrings ('% UserName%') 'Создать текстовый файл на рабочем столе fName =' C:  Users  '& UserName &'  Desktop  WindowsKeyI nfo.txt 'Set fso = CreateObject (' Scripting.FileSystemObject ') Set txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close End Function
  3. Сохраните приведенный выше текст в файл с расширением «.vbs» на рабочем столе.
    Дополнительный совет: чтобы убедиться, что вы правильно сохраняете файл с расширением «.vbs», вы можете ввести его имя, заключенное в двойные кавычки, например, «BackupWindowsKey.vbs».
    резервное копирование ключа продукта Windows Windows 10
  4. Теперь откройте файл BackupWindowsKey.vbs.
  5. Вуаля, ваш ключ продукта отображается на экране!
    показать ключ продукта Windows 10

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

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

Интересные статьи

Выбор редакции

Доставляет ли Amazon Prime в воскресенье?
Доставляет ли Amazon Prime в воскресенье?
Вы знаете это чувство, когда заказываете что-то на Amazon, а часы начинают тикать. Каждая минута ожидания начинает вас раздражать. Это особенно актуально, если заказ - это то, о чем вы давно мечтали.
Как сделать так, чтобы Windows 10 предпочитала сотовые данные Wi-Fi
Как сделать так, чтобы Windows 10 предпочитала сотовые данные Wi-Fi
Microsoft сделала возможным изменить приоритет подключений, поэтому сотовые сети предпочтительнее Wi-Fi в Windows 10.
Индивидуальная настройка устройства вывода звука для приложений в Windows 10
Индивидуальная настройка устройства вывода звука для приложений в Windows 10
В Windows 10 версии 1803 пользователь может указать устройство вывода звука для каждого приложения. Microsoft добавила новые параметры в приложение «Настройки».
Как извлечь страницы из PDF-документа в Mac OS X Preview
Как извлечь страницы из PDF-документа в Mac OS X Preview
Приложение «Предварительный просмотр» в OS X - это мощный инструмент, который позволяет выполнять базовые модификации документа PDF, такие как переупорядочивание или удаление страниц и изменение метаданных. Одна функция, которая может быть менее известной, - это возможность извлекать одну или несколько страниц из существующего документа PDF. Прочтите, чтобы узнать о двух методах этого.
Как изменить язык на Pluto TV
Как изменить язык на Pluto TV
Если вы выбрали Pluto TV в качестве потокового сервиса, возможно, вы захотите изменить язык. Возможно, вы учитесь говорить на испанском или китайском языке или просто хотите посмотреть свой любимый контент в другом
Лучшие предложения Samsung Galaxy S8 и S8 Plus в Великобритании: предварительный заказ нового флагмана Samsung с этими горячими предложениями
Лучшие предложения Samsung Galaxy S8 и S8 Plus в Великобритании: предварительный заказ нового флагмана Samsung с этими горячими предложениями
Samsung Galaxy S8 и Samsung Galaxy S8 Plus представляют собой лучшее, что Samsung может предложить фанатикам флагманских смартфонов. Они не только созданы, чтобы превзойти по красоте телефоны Samsung Galaxy S7 и S7 Edge 2016 года, но и
Как убрать черные полосы при игре в CSGO
Как убрать черные полосы при игре в CSGO
Черные полосы на экране довольно часто встречаются в фильмах, но видеть, как они занимают ценное место на мониторе в игре, может сильно раздражать. Чаще всего черные полосы в играх появляются либо из-за неправильных настроек монитора, либо из-за дисплея.