Мой компьютер        06 августа 2015        149         14

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

Как узнать ключ активации WindowsДобрый час читатели блога!
Иногда возникает такая необходимость, что нужно узнать ключ активации вашей операционной системы Windows, но вы не знаете, как это сделать.

Я покажу вам простой действенный способ при помощи VBS скрипта, который работает с ОС Windows XP, Vista, 7, 8, 8.1, 10, главное вам не потребуется для этого скачивать посторонний софт. Обойдемся только своими силами.

Некоторые пользователи считают нет ничего проще посмотреть свой ключик зайдя в «Свойства системы» и они конечно правы, узнать какой от вашей «винды» ключик очень просто. Но через свойства вы узнаете только Код продукта, но никакого ключа активации ОС там нет!

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

Во первых поищите наклейку на системном блоке и на оборотной стороне ноутбука на которой вы увидите код из 25 буквенных и числовых символов. Наклейку вы можете найти, но вот текст там может оказаться уже от времени нечитаемым к тому же теперь на новых ноутбуках наклейки с ключом продукта давно уже не клеят.

Существуют разные программы, которые вам помогут и одна из которых лично мне знакома так это программа глубокой диагностики ПК под названием: AIDA64. Но это как говорится совсем другая история, мы же переходим о теории к практике.

Создаем wbs документ

Кликаем ПКМ по пустому месту рабочего стола: Создать ⇒ Текстовый Документ и полностью скопируйте в него содержимое этого скрипта:

Option Explicit
Dim objshell, путь, DigitalID, результат
Установите objshell = CreateObject ("WScript.Shell")
"Установить ключ реестра путь
Путь = "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion \"
'Реестр ключевое значение
DigitalID = objshell.RegRead (Путь и "DigitalProductId")
Dim ProductName, ProductID, ProductKey, ИзделиеТехнический
"Get ProductName, ProductID, ключ_продукта
ProductName = "Название продукта:" & objshell.RegRead (Путь и "ProductName")
ProductID = "ID продукта:" & objshell.RegRead (Путь и "ProductID")
Ключ_продукта = "Установленная Ключ:" & ConvertToKey (DigitalID)
ИзделиеТехнический = ProductName и vbNewLine & ProductID и vbNewLine & ключ_продукта
"Показать messbox если сохранить в файле
Если vbYes = MsgBox (ИзделиеТехнический & vblf & vblf & "Сохранить в файл?", VbYesNo + vbQuestion, "архивации данных Windows Информация ключ"), то
 Сохранить данные продукта
End If
"Преобразование двоичного в символов
Функция ConvertToKey (ключ)
 Строительства KeyOffset = 52
 Dim isWin8, карты, I, J, ток, KeyOutput, наконец, keypart1, вставки
 "Проверьте, если ОС Windows 8
 isWin8 = (ключ (66) \ 6) и 1
 Ключ (66) = (ключ (66) и & HF7) или ((isWin8 и 2) * 4)
 я = 24
 Карты = "BCDFGHJKMPQRTVWXY2346789"
 Сделать
 Ток = 0
 J = 14
 Сделать
 Ток = ток * 256
 Ток = Ключ (J + KeyOffset) + Текущий
 Ключ (J + KeyOffset) = (Текущий \ 24)
 Ток = ток Мод 24
 J = J -1
 В то время как петли J> = 0
 я = я -1
 KeyOutput = Mid (Карты, Текущий + 1, 1) и KeyOutput
 Последняя = Текущий
 В то время как я петли> = 0
 keypart1 = Mid (KeyOutput, 2, Последний)
 вставить = "N"
 KeyOutput = Replace (KeyOutput, keypart1, keypart1 & вставка, 2, 1, 0)
 Если в прошлом = 0 Тогда KeyOutput = вставка и KeyOutput
 ConvertToKey = Mid (KeyOutput, 1, 5) и "-" и Mid (KeyOutput, 6, 5) и "-" и Mid (KeyOutput, 11, 5) и "-" и Mid (KeyOutput, 16, 5) и "-" & Mid (KeyOutput, 21, 5)
End Function
"Сохранить данные в файл
Функция Save (Данные)
 Дим FSO, FName, TXT, objshell, Имя пользователя
 Установите objshell = CreateObject ("WScript.Shell")
 "Получить имя текущего пользователя
 UserName = objshell.ExpandEnvironmentStrings ("% USERNAME%")
 "Создайте текстовый файл на рабочем столе
 FName = "C: \ Users \" Имя пользователя и & "\ Desktop \ WindowsKeyInfo.txt"
 Установите FSO = CreateObject ("Scripting.FileSystemObject")
 Установите TXT = fso.CreateTextFile (FName)
 txt.Writeline данных
 txt.Close
End Function

Потом сохраняете документ.

Читайте также:  8 способов как запустить диспетчер задач Windows

Имя файла: WindowsKey.VBS

Тип файла: Все файлы

Нажмите на кнопку Сохранить.
Имя файла можете задать любое, но расширение VBS обязательно нужно прописать! Более подробно как создать текстовый документ в стандартном блокноте читайте в этой статье.

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

О том, что у вас все получилось правильно, будет видно по изменившемуся внешнему виду файла.

Вид файла VBS

Далее запускаем созданный вами файлик (если у вас есть запись Администратор и под обычной записью не получилось, то тогда создайте файлик именно под администратором), в появившемся окне видим такую информацию:

Product Name — Сведения о системе

Код товара — Код продукта

Insstalled Key – Ключ

Сохранить в файл — файл в Cохранить

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

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

Совет: скопируйте, а лучше запишите на бумагу свой ключ уберите, куда понадежней, так на всякий случай.

Вот на этом пока все, а какие знаете способы вы, что бы узнать ключ активации Windows?

Валерий Семенов, moikomputer.ru

Обсуждение: 14 комментариев
  1. Роман:

    Хороший способ, мне нравится. Попробую такую фишку. Честно говоря не знал что так можно делать. Теперь буду в курсах.

    Ответить
  2. Анатолий:

    Вашим способ узнал ключ.Ввел его в Windows10 и ... оказалось, что windows8.1 у меня была ломаная.Ключ не подошел. Активировал,скачав программу windows toolkit вот отсюда:

    windows10.su/aktivator-windows-10

    Желаю всем успеха!

    Ответить
  3. Игорь:

    А вот это дельный совет. Интересный способ получения ключа.

    Пойду испробую.

    Ответить
  4. Дмитрий:

    Меня пока 7-ка устраивает. На 10-ку пока переходить нет необходимости.

    Ответить
  5. Игорь:

    Меня так же в свое время XP-шная версия устраивала,а 7-ка не нравилась.

    Позже сразу 8-ю версию установил,а далее 8.1.

    А 10 отличная версия.

    Ответить
    1. Валерий Семенов:

      Я ХР почти не знаю, новая 10ка реально нравится, ни каких серьезных проблем с ней не испытываю.

      Ответить
  6. Игорь:

    Я XP-ой версией с 2003 года пользовался.

    В прошлом году только на 8-ку перешел.

    Ну а теперь вот 10-ка.

    Ответить
  7. Игорь:

    Валер можно на ты?

    Ты до этого какими версиями пользовался?

    Ответить
    1. Валерий Семенов:

      Конечно давай на ты я не против. На работе ХР хотя моя работа не связана с компьютером поэтому знаком с данной версией постольку поскольку. Когда купил первый компьютер как раз уже вышла 7ка сейчас у меня их 3 последний мне отдали как раз на нем стоит зверь!

      Ответить
  8. Игорь:

    Ну у меня на одном ноутбуке XP осталась,пока не буду менять.

    У жены на ноутбуке 8.1 установлено,противится менять на 10 версию.

    Можно же и откат сделать,тем более лицензионная.

    А вот на компе я 10 версию установил,что то были какие то глюки ,особенно со скайпом.

    Сделал откат до 8 версии,потом опять установил и все пошло своим чередом.

    Сейчас познаю 10 ,пока все устраивает.

    Ответить
  9. Игорь:

    Если будут какие то вопросы по XP версии,пиши в личку,помогу.

    Я за столько лет досконально ее изучил.

    Ответить
    1. Валерий Семенов:

      Спасибо, буду иметь в виду.

      Ответить
  10. Nafalia:

    Валерий, Вы дали текст программы с переводом операторов программы на русский язык, например: СДЕЛАТЬ, ФУНКЦИЯ SAVE и т. д. Поэтому мне пришлось перейти по вашей ссылке, скачать программу и выполнить её. А вообще, спасибо большое за Ваши материалы!

    Ответить
    1. Валерий Семенов:

      Буду рад вас видеть на блоге Nafalia.

      Ответить

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *

Подпишись на обновления

Введите Ваш email адрес: