Статья в последний раз корректировалась 2015.10.14 и могла потерять свою актуальность !!!

Как известно, для активации Windows нужен 25-значный ключ (код активации).

Узнать код активации уже установленной и активированной Windows можно при помощи программ, обладающих соответствующими возможностями, или же путем использования специального VBS-скрипта.

Вариант с программами имеет много недостатков и часто не срабатывает в новых версиях Windows. Поэтому более предпочтительным является использование VBS-скрипта. Достаточно просто запустить этот скрипт (двойным щелчком мышки), и через несколько секунд код активации отобразится в диалоговом окне.

Этот скрипт можно создать самостоятельно (инструкция ниже), или же скачать с нашего сайта. Ссылка на загрузку расположена в самом конце этой статьи.

Порядок создания VBS-скрипта

1. Открыть текстовый редактор Блокнот. Неопытным пользователям напомню, что Блокнот входит в состав операционной системы Windows и есть на любом компьютере (ищите его среди программ в меню "Пуск", в папке "Стандартные");

2. Скопировать в Блокнот расположенный ниже текст (в рамке). Будьте внимательны. Все без исключения символы имеют значение, в том числе пробелы и переносы строк. Копировать нужно как есть, ничего не изменяя.

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 8 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

3. Сохранить файл как VBS-скрипт.

С этой целью необходимо в меню Блокнота щелкнуть по пункту "Файл" и выбрать "Сохранить как". В открывшемся окне указать место для сохранения файла (любое, например, Рабочий стол), в поле "Имя файла" написать любое название (я написал WinKey), сразу же после которого поставить .vbs (см. изображение). Затем нажать кнопку Сохранить.

Скрипт сохранится в указанном Вами месте. Если дважды щелкнуть по нему мышкой, появится диалоговое окно, в котором отобразится код активации установленной на компьютере Windows.

Этот скрипт можно копировать и использовать на любом другом компьютере.

Если по каким-то причинам Вам не удалось создать работающий VDS-скрипт, можете скачать уже готовый, нажав на эту ссылку и распаковав полученный архив.