Как узнать ключ Windows 10

1. Mr. •
Зачем прогу качать? Это можно сделать через простой текстовый документ.
Создайте Текстовый документ.
Скопируйте в него текст скрипта.
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 . Нажмите Сохранить.

2. Сергей •
Спасибо за видео, плюсую. Есть вопрос: у меня Windows 10 активировалась путем бесплатного обновления семерки. Теперь мне надо поменять жесткий диск, т.е. произойдет частичная замена железа. Придется заново ставить десятку. Подхватит она свою активацию в этом случае?

3. Napoli •
у меня эта программа не показывает ключ активации Windows 10. вместо ключа показывает крестики и пишет: OEM key not present in firmware. а в самом ноутбуке указанно: система windows активирована с помощью цифровой лицензии, привязанной к вашей учётной записи майкрософт.

4. bered321 •
а если была лицензионная 7 про ретэйл версия, я ее обновил до 10 про, а теперь хочу сменить комп, смогу ли я на новом компе активировать эту десятку посредством учетки майкрософт? или в данном случаи нужна ретэйл версия вин 10?

5. ALX •
Полезная инфа, а если я жесткий поменяю, у меня тоже винда сама при подключении активируется? Я слышал что только при замене материнки нужен ключ при чистой установки , что вроде ключ сейвиться как то в материнку.))) Так это?

6. Игорь •
А если такая ситуация. Ноутбук. Получил десятку путем обновления с восьмерки. И сейчас буду эту десятку переустанавливать, и паралельно меняю жесткий диск. Винда все равно активируется после установки?

7. Jepru •
Ребят, а если я обновился с 8.1 до 10 оригинальным ключиком, а сейчас хочу установить винду на очищенный hdd (hard), то мне просто при уствновке надо выбрать у меня нет ключа и винда автоматически активируется ?

8. cosmic •
Если обновил сейчас лицензионный Win7 на Win10 (не лептоп) и по окончании периода бесплатного обновления буду делать чистую установку Win10 - можно будет установить с ключом от семерки? Я правильно понял?

9. ivan •
подскажите можно вводить для активации ключь который до этого подобрал кмс ауто вернее ранее я активировал винду кмс ауто и сейчас хочу сохранить этот ключ толк будет если винда слетит

10. Monbebe •
С 7 винды перехожу на 10 и при самой установке запрашивает ключ активации, когда нажимаю "у меня нет ключа" то установка просто не продолжается без него, что тогда делать?

11. Oleg •
Обновился с 7 ки год назад интернет мне сам предложил Но сейчас собрал новое железо более мощное как мне перенести винду со старого компа на новый, что бы непокупать ключ