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

Хочу переустановить виндоус но ноутбук я покупал уже с виндой. В вкладке о програме написан код продукта. Если его написать при октивации он сработает или нет?

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

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

Винда 10? На брюхе ноута есть голографическая наклейка с логотипом форточек? Если да, то просто делаешь на https://www.microsoft.com/.../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 простым методом не прокатит - можно - как не скажу - потрахайтесь и мозгами пошевелите

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

Добавить комментарий