Узнать ключ активации Windows

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

Краткое содержание

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

*Внимание! Данная статья относится к Windows 7/8/8.1 и не подходит для Windows 10.


Подробности

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

 

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

  

Set WshShell = CreateObject("WScript.Shell")

regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"

DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")

Win8ProductName = "Windows Product Name: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine

Win8ProductID = "Windows Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine

Win8ProductKey = ConvertToKey(DigitalProductId)

strProductKey ="Windows Key: " & Win8ProductKey

Win8ProductID = Win8ProductName & Win8ProductID & strProductKey

MsgBox(Win8ProductKey)

MsgBox(Win8ProductID)

Function ConvertToKey(regKey)

    Const KeyOffset = 52

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

    regKey(66) = (regKey(66) And &HF7) Or ((isWin8 And 2) * 4)

    j = 24

    Chars = "BCDFGHJKMPQRTVWXY2346789"

    Do

        Cur = 0

        y = 14

        Do

            Cur = Cur * 256

            Cur = regKey(y + KeyOffset) + Cur

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

            Cur = Cur Mod 24

            y = y -1

        Loop While y >= 0

        j = j -1

        winKeyOutput = Mid(Chars, Cur + 1, 1) & winKeyOutput

        Last = Cur

    Loop While j >= 0

    If (isWin8 = 1) Then

        keypart1 = Mid(winKeyOutput, 2, Last)

        insert = "N"

        winKeyOutput = Replace(winKeyOutput, keypart1, keypart1 & insert, 2, 1, 0)

        If Last = 0 Then winKeyOutput = insert & winKeyOutput

    End If

    a = Mid(winKeyOutput, 1, 5)

    b = Mid(winKeyOutput, 6, 5)

    c = Mid(winKeyOutput, 11, 5)

    d = Mid(winKeyOutput, 16, 5)

    e = Mid(winKeyOutput, 21, 5)

    ConvertToKey = a & "-" & b & "-" & c & "-" & d & "-" & e

End Function

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

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

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

Применимо к: 

Windows XP, Vista, 7, 8, 8.1

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

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

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

Ошибка при удалении файла или папки.

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

Была ли эта статья полезной?

К сожалению, это не помогло.

Отлично! Благодарим за отзыв.

Насколько вы удовлетворены этой статьей?

Благодарим за отзыв, он поможет улучшить наш сайт.

Насколько вы удовлетворены этой статьей?

Благодарим за отзыв.

* Попробуйте выбрать меньший номер страницы.

* Введите только числа.

* Попробуйте выбрать меньший номер страницы.

* Введите только числа.

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

137 польз. нашли этот комментарий полезным

·

Был ли этот комментарий полезным?

К сожалению, это не помогло.

Отлично! Благодарим за отзыв.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв, он поможет улучшить наш сайт.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв.

Спасибо службе поддержки Microsoft.
Ребята помогли восстановить ключ активации.
Классная работа, так держать!!!
P/S А еще недавно хотел перейти на OS X.

305 польз. нашли этот комментарий полезным

·

Был ли этот комментарий полезным?

К сожалению, это не помогло.

Отлично! Благодарим за отзыв.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв, он поможет улучшить наш сайт.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв.

но почему то на моем виндовс нет такого текстового редактора, как показано на рисунке и он не сохраняет его как все файлы ка на рисунке
 
все по другому а блокнот сохраняет его  так ка на рисунке но почему то не переодевается в
 помогите

276 польз. нашли этот комментарий полезным

·

Был ли этот комментарий полезным?

К сожалению, это не помогло.

Отлично! Благодарим за отзыв.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв, он поможет улучшить наш сайт.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв.

Эски это и есть блокнот. Какая у Вас операционная система?

Можно сделать по другому. Скопируйте текст в блокнот, включите отображаете расширений имен, как описано в этой статье
У файла появится расширение .txt измените расширение на .vbs

90 польз. нашли этот комментарий полезным

·

Был ли этот комментарий полезным?

К сожалению, это не помогло.

Отлично! Благодарим за отзыв.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв, он поможет улучшить наш сайт.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв.

я все сделал как на рисунке и сох как все файлы и имя тоже прописал и VBS добавил и кодировка ANSI она его сохраняет, но после как сохранит получается чистый лист, при попытки открыть виндовс спрашивает "как вы хотите открыть файлы такого типа (.VBS) + ссылка на магазин в дополнительно я не нашел подходящий программу, побывал всеми что дала выбор нет эффекта.
на другом виндовс сходу получилось на моем что-то не выходит

139 польз. нашли этот комментарий полезным

·

Был ли этот комментарий полезным?

К сожалению, это не помогло.

Отлично! Благодарим за отзыв.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв, он поможет улучшить наш сайт.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв.

может проблема в том что у меня нет в создать такого рисунка  Текстовый документ
рисунок не могу показать не знаю как. на моем текстовом документе листок с буквой А. после я его открыл как блокнот . единственное отличие от рисунка при выборе все файлы у меня появляется все файлы (*.*), а на рисунке просто- все файлы

11 польз. нашли этот комментарий полезным

·

Был ли этот комментарий полезным?

К сожалению, это не помогло.

Отлично! Благодарим за отзыв.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв, он поможет улучшить наш сайт.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв.

Добрый день. скрипт выдает код в виде ВВВВВ-ВВВВВ-ВВВВВ-ВВВВВ-ВВВВВ. win7ent_x32; win8.1ent_x64

518 польз. нашли этот комментарий полезным

·

Был ли этот комментарий полезным?

К сожалению, это не помогло.

Отлично! Благодарим за отзыв.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв, он поможет улучшить наш сайт.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв.

Да, такое бывает, если компьютер находится в домене и для активации системы использовался KMS сервер.

Enterprise версии Windows, это системы исключительные, к ним нужен индивидуальный подход. :)

172 польз. нашли этот комментарий полезным

·

Был ли этот комментарий полезным?

К сожалению, это не помогло.

Отлично! Благодарим за отзыв.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв, он поможет улучшить наш сайт.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв.

домен отсутствует, KMS тоже, ключ вводился руками

105 польз. нашли этот комментарий полезным

·

Был ли этот комментарий полезным?

К сожалению, это не помогло.

Отлично! Благодарим за отзыв.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв, он поможет улучшить наш сайт.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв.

Ключ я нашел.Большое спасибо ребятам.

118 польз. нашли этот комментарий полезным

·

Был ли этот комментарий полезным?

К сожалению, это не помогло.

Отлично! Благодарим за отзыв.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв, он поможет улучшить наш сайт.

Насколько вы удовлетворены этим комментарием?

Благодарим за отзыв.

* Попробуйте выбрать меньший номер страницы.

* Введите только числа.

* Попробуйте выбрать меньший номер страницы.

* Введите только числа.

 
 

Сведения о статье форума


Последнее обновление 4 декабря, 2020 Просмотры 770 895 Относится к: