Как посмотреть ключ продукта в 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 = "  Идентификатор продукта: "& 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) Or ((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 цикл, пока j> = 0 i = i -1 KeyOutput = Mid (Maps, Current + 1, 1) &  KeyOutput Last = Current Loop While i> = 0 If (isWin8 = 1) Then keypart1 = Mid (KeyOutput, 2, Last) insert = "N" KeyOutput = Replace (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)  Если Last = 0, то 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  WindowsKeyInfo.  txt "Set fso = CreateObject (" Scripting.FileSystemObject ") Set txt = fso.CreateTextFile (fName) txt.Writeline Data txt.Close End Function 
  3. Сохраните текст выше в файл с расширением «.vbs» на рабочем столе.
    Дополнительный совет: чтобы убедиться, что вы правильно сохраняете файл с расширением «.vbs», вы можете ввести его имя, заключенное в двойные кавычки, например , «BackupWindowsKey.vbs».
  4. Теперь откройте файл BackupWindowsKey.vbs
  5. Вуаля, ваш ключ продукта отображается на экране!

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

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



Оцените статью
digitdocom.ru
Добавить комментарий