Как узнать код активации windows 10 на ноутбуке через vbs скриптом

Обновлено: 04.07.2024

Для активации Windows используется 25-ти значный ключ продукта.
Он имеет вид XXXXX-XXXXX-XXXXX-XXXXX-XXXXX.
Узнать ключ активации Виндовс требуется в нескольких случаях. Например, если у вас на ноуте или ПК установлена Семёрка или Восьмёрка и вы хотите обновить её до Windows 10.

Существует несколько способов сделать это. Некоторые рассмотрим в тексте ниже.

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

Видео инструкция поможет с определением ключа продукта.

Для того, чтобы изготовить скрипт, создаём обычный текстовый документ. На свободном месте Рабочего стола кликаем правой клавишей мыши и в контекстном меню наводим курсор на пункт Создать. В дополнительном меню выбираем пункт Текстовый документ.

Ещё один способ посмотреть ключ. Принцип работы похож - копируем текст скрипта в текстовый документ, сохраняем в нужном формате и выполняем. Но, на этот раз, используем для выполнения скрипта PowerShell.

Код скрипта для PowerShell

Необходимо скопировать этот текст, например в блокнот, и сохранить его с расширением .psl
Например, я сохранил его на диск С под названием key. Таким образом, путь до этого файла у меня вот такой:

После этого, запускаем PowerShell от имени администратора.

После того как PowerShell запущен, вставляем в его окно следующую команду:

После ввода команды и нажатия на Enter, появится запрос на подтверждение. Нужно ввести букву Y (англ.) и нажать Enter.

Теперь, для выполнения скрипта, просто вводим в PowerShell путь до него:

При этом, в строке с текстом Installed Key: мы увидим ключ продукта.

После того, как вы разобрались со своим ключом, я рекомендую запретить политику выполнения PowerShell, разрешённую нами на первом этапе. Это можно сделать, введя в PowerShell команду:

Посмотреть ключ установленной Windows можно так же с помощью сторонних программ.

Ещё одна неплохая программка, для того, чтобы вытащить ключ - Show Key Plus. Её можно скачать со страницы проекта на Githab. Я приведу вот эту ссылку на список релизов программы. Последнюю версию выберите сами.

Что делать если вы забыли ключ от Windows 10 или Windows 8? Как быть если предыдущий администратор не передал вам ключ от Windows Server 2012 R2? Ноутбук с Windows непонятной версии нужно откатить на заводские настройки, а ключ от операционной системы никто не помнит?

В зависимости от того, как вы получили свою копию Windows 10, для активации может потребоваться 25-значный ключ продукта или цифровая лицензия.

Цифровая лицензия (в Windows 10 версии 1511 носит название цифрового разрешения) — это способ активации в Windows 10, который не требует ввода ключа продукта.
Ключ продукта представляет собой 25-значный код, используемый для активации Windows. Вы увидите КЛЮЧ ПРОДУКТА: XXXXX-XXXXX-XXXXX-XXXXX-XXXXX.

Ключ продукта

Если у вас установлен ключ продукта, то можно его узнать. Просто скопируйте текст ниже в файл winkey.vbs и запустите на нужной машине. Если повезёт, то скрипт определит ключ и версию системы.

Ключ продукта в BIOS

Лицензионный ключ может быть прописан в BIOS устройства. Узнать его можно через Powershell:

Или в командной строке:

Цифровая лицензия

Если вы бесплатно обновили ОС Windows 7 или Windows 8.1 до Windows 10, вместо ключа продукта вы должны получить цифровую лицензию. Если у вас есть цифровая лицензия для устройства, вы можете переустановить тот же выпуск Windows 10 на этом устройстве без ввода ключа продукта.

В этом случае при попытке запустить скрипт для определения ключа вы получите это: BBBBB-BBBBB-BBBBB-BBBBB-BBBBB.

Открываем окно параметров.

Надпись об активации может отличаться:

Ключ по умолчанию

Можно узнать ключ по умолчанию для текущей редакции. Он устанавливается, если вы не указываете свой ключ и сохраняется при получении цифровой лицензии.

Полную версия ключа можно посмотреть в реестре:

Скрипт VBS в помощь. Просто скопируйте текст ниже в файл winkey2.vbs и запустите на нужной машине. Скрипт определит ключ по умолчанию и версию системы.

Этот ключ позволит установить windows 10 без проведения активации. Потом автоматически должна активироваться цифровая лицензия, если она привязана к вашей учётной записи Microsoft.

Для активации 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

strProductKey = "Windows Key: " & Win8ProductKey

Win8ProductID = Win8ProductName & Win8ProductID & strProductKey

Function ConvertToKey(regKey)

Const KeyOffset = 52

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

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

Cur = regKey(y + KeyOffset) + Cur

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

Cur = Cur Mod 24

Loop While y >= 0

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

Loop While j >= 0

If (isWin8 = 1) Then

keypart1 = Mid(winKeyOutput, 2, Last)

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)

End Function

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

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

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

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

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

Определение ключа с помощью VBScript

Создайте в любом удобном месте текстовый файл, например на рабочем столе и переименуйте его в WindowsKey.

Откройте созданный ранее текстовый файл в текстовом редакторе (по умолчанию в блокноте) и скопируйте в него следующий код:

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