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