Переустановка виндоус код активации

сработает, хотя если ты будешь имменно переустанавливать то он сам активируется

винда 10? на брюхе ноута есть голографическая наклейка с логотипом форточек? если да, то просто делаешь на https://www.microsoft.com/ru-ru/software-download/windows10 флэшку, грузишься с неё и ставишь. нужная редакция сама выберется и ключ подхватится из биоса.

если наклейки нет, то смотришь Параметры – Обновление и безопасность – Активация. если там "активирована цифровой лицензией", то смотришь текущую редакцию (Параметры – Система – О системе) и ставишь такую же (https://www.microsoft.com/ru-ru/software-download/windows10, загрузиться с флэшки, "у меня нет ключа" – выбрать нужную редакцию). если всё правильно сделал, активируется автоматом через интернет.

Создай файл .vbs следующего содержания

Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\"
DigitalProductId = WshShell.RegRead(regKey & "DigitalProductId")
Win10ProductName = "Version Windows 10: " & WshShell.RegRead(regKey & "ProductName") & vbNewLine
Win10ProductID = "Product ID: " & WshShell.RegRead(regKey & "ProductID") & vbNewLine
Win10ProductKey = ConvertToKey(DigitalProductId)
ProductKeyLabel ="Key Windows 10: " & Win10ProductKey
Win10ProductID = Win10ProductName & Win10ProductID & ProductKeyLabel
MsgBox(Win10ProductID)
Function ConvertToKey(regKey)
Const KeyOffset = 52
isWin10 = (regKey(66) \ 6) And 1
regKey(66) = (regKey(66) And &HF7) Or ((isWin10 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 (isWin10 = 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

Нужен не код, а ключ продукта

с 7 простым методом не прокатит - можно - как не скажу - потрахайтесь и мозгами пошевелите

Ключ обычно уже привязывается к железу. Ставить надо ту-же версию Windows, которая была предустановлена. И если не активируется, только тогда вводите ключ.