Как узнать ключ активации 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

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

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

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

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

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

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

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

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

Insstalled Key – Ключ

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

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

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

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

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