Узнать ключ активации Windows – как исправить?

Технический уровень: средний

Резюме

Для активации Windows используется 25-значный код (ключ) формата (XXXXX-XXXXX-XXXXX-XXXXX-XXXXX). Чтобы узнать, какой ключ использовался для активации системы или систему пришлось переустановить, а ключ на наклейке был очищен, вы можете использовать этот сценарий VBS.

*Внимание! Эта статья относится к Windows 7/8 / 8.1 и не относится к Windows 10.

Подробности

Создайте текстовый документ.

Скопируйте в него текст скрипта.

Установите WshShell = CreateObject (“WScript.Shell”)

regKey = “HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion\”

DigitalProductId = WshShell.RegRead (regKey & “DigitalProductId”)

Win8ProductName = “Название продукта Windows:” & WshShell.RegRead (regKey & “ProductName”) & vbNewLine

Win8ProductID = “Код продукта Windows:” & WshShell.RegRead (regKey & “ProductID”) & vbNewLine

Win8ProductKey = ConvertToKey (DigitalProductId)

strProductKey = “Ключ Windows:” & Win8ProductKey

Win8ProductID = Win8ProductName & Win8ProductID & strProductKey

MsgBox (Win8ProductKey)

MsgBox (Win8ProductID)

Функция ConvertToKey (regKey)

Const KeyOffset = 52

isWin8 = (regKey (66) \ 6) и 1

regKey (66) = (regKey (66) And & HF7) Или ((isWin8 And 2) * 4)

j = 24

Characters = “BCDFGHJKMPQRTVWXY2346789”

Делать

Cur = 0

у = 14

Делать

Cur = Cur * 256

Cur = regKey (y + KeyOffset) + Cur

regKey (y + KeyOffset) = (Cur \ 24)

Cur = Cur Mod 24

у = у -1

Цикл пока y> = 0

j = j -1

winKeyOutput = Mid (символы, Cur + 1, 1) и winKeyOutput

Last = Cur

Цикл Пока j> = 0

Если (isWin8 = 1) Тогда

keypart1 = Mid (winKeyOutput, 2, Последний)

insert = “N”

winKeyOutput = Заменить (winKeyOutput, keypart1, keypart1 и вставить, 2, 1, 0)

Если Last = 0, то winKeyOutput = insert & winKeyOutput

Конец, если

a = средний (winKeyOutput, 1, 5)

b = Средний (winKeyOutput, 6, 5)

c = Средний (winKeyOutput, 11, 5)

d = Средний (winKeyOutput, 16, 5)

e = Средний (winKeyOutput, 21, 5)

ConvertToKey = a & “-” & b & “-” & c & “-” & d & “-” & e

Конец функции

Щелкните Файл – Сохранить как:

Выберите Тип файлов: Все файлы. Укажите любое имя файла, но обязательно включите расширение .VBS. Щелкните Сохранить.

При нажатии на сохраненный файл откроется окно с ключом активации Windows.

Это касается:

Windows XP, Vista, 7, 8, 8.1

Смотрите также:

Отключите Teredo и адаптер isatap

Загрузочная флешка

Произошла ошибка при удалении файла или папки.

Все статьи автора Денчик.

Спасибо за ваш отзыв.

Спасибо. Это очень помогло.

Источник: https://answers.microsoft.com/ru-ru/windows/forum/all/receive/e03d2b09-070c-4d29-ac8b-72a13230511c