Если вы потеряли или забыли, где храните ключ продукта Windows, у меня есть решение для вас. Сегодня мы увидим, как можно использовать простой сценарий VBS, чтобы показать нам ключ продукта установленной копии Windows 10, Windows 8 или Windows 7. Это простое решение для извлечения ключа продукта из ОС, установленной на вашем ПК, без с использованием любого стороннего программного обеспечения. Вот так.
Собственно, ранее я выкладывал подобное решение, использующее PowerShell. но многие пользователи жаловались, что им это не удается. PowerShell может потребовать дополнительных навыков пользователя и дополнительных настроек для запуска неподписанных командлетов.
По сравнению с PowerShell это решение VBScript почти идеально. Все, что вам нужно сделать, это просто щелкнуть файл. Чтобы просмотреть ключ продукта Windows 10
- Откройте Блокнот.
- Скопируйте и вставьте следующий текст в окно Блокнота
Вариант Явный Тусклый 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 Конечная функция - Сохраните приведенный выше текст в файл с расширением «.vbs» на рабочем столе.
Дополнительный совет: чтобы убедиться, что вы правильно сохраняете файл с расширением «.vbs», вы можете ввести его имя, заключенное в двойные кавычки, например, «BackupWindowsKey.vbs».
- Теперь откройте файл BackupWindowsKey.vbs.
- Вуаля, ваш ключ продукта отображается на экране!
Щелкните здесь, чтобы загрузить файл BackupWindowsKey.vbs
Я тестировал этот трюк на Windows 7, Windows 8 и Windows 10. Он безупречно работает во всех упомянутых операционных системах. Кредиты: несуществование @ MDL.
