Как просмотреть ключ продукта Windows 10 с помощью скрипта или командной строки - Winhelponline

How View Your Windows 10 Product Key Using Script

Есть много инструментов для извлеките ключ продукта из действующей системы или из куста реестра автономного компьютера. Кроме того, вот небольшой аккуратный Vbscript, который получает ключ продукта для вашей текущей установки Windows - сторонняя программа не требуется. Скрипт работает в Windows 7, 8 и Windows 10.



Просмотреть ключ продукта Windows 10

Метод 1. Использование командной строки WMI или PowerShell

Используйте следующую командную строку WMI, чтобы исправить ключ продукта вашей установки Windows.



wmic path softwarelicensingservice получить OA3xOriginalProductKey

Этот метод извлекает ключ активации, хранящийся в UEFI / BIOS вашего компьютера.



Обратите внимание, что вам нужно будет запустить указанную выше команду из Командная строка с повышенными правами / администратора окно.

wmic path softwarelicensingservice получить OA3xOriginalProductKey



Или, если вы используете PowerShell, запустите эту команду из окна PowerShell администратора, чтобы узнать ключ продукта:

(Get-WmiObject -query 'select * from SoftwareLicensingService'). OA3xOriginalProductKey

В некоторых системах приведенные выше команды выводят заголовок OA3xOriginalProductKey и пустые строки внизу, не показывающие ключа продукта. Это происходит, если на устройстве нет встроенного ключа активации / продукта.

Если в устройстве есть встроенный ключ активации, он будет отображаться на выходе. Если вывод не заполнен, устройство не имеет встроенного ключа активации встроенного ПО. Большинство OEM-устройств, предназначенных для работы под управлением Windows 8 или более поздних версий, будут иметь встроенный ключ встроенного ПО.

Метод 2: Использование скрипта

Важный: Обратите внимание, что следующий метод просто декодирует DigitalProductId значение реестра, чтобы получить ключ розничного продукта. Ключ, полученный с помощью этого метода, может быть автоматически сгенерированным общий ключ Windows 10 (для систем, обновленных с Windows 7 или 8 с цифровыми правами). Это также может быть ключ розничной версии (если вы приобрели лицензию ранее), введенный вручную во время установки Windows 10. Итак, если вы используете Windows 10, желательно отдать приоритет первому способу.

Скопируйте следующий код в Блокнот и сохраните файл как GetProductKey.vbs.

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 'Сохранение данных в файл Функция Save (Data) 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

Источник: Получить ключ продукта Windows · GitHub

Дважды щелкните, чтобы запустить сценарий, чтобы узнать ключ продукта для вашей установки Windows.

vbscript просмотреть ключ продукта Windows 10

Ключ продукта получен с помощью Vbscript

Это оно!


Одна небольшая просьба: если вам понравился этот пост, поделитесь им?

Одна «крошечная» публикация от вас серьезно помогла бы росту этого блога. Несколько отличных предложений:
  • Приколи это!
  • Поделитесь этим в своем любимом блоге + Facebook, Reddit
  • Напишите об этом в Твиттере!
Так что большое спасибо за вашу поддержку, мой читатель. Это займет не более 10 секунд вашего времени. Кнопки «Поделиться» находятся прямо внизу. :)