Интернет

Купил ноут с вин 8. Как активировать её?

Ключа на коробке нет, под ноутом тоже, даже диска установочного недали, засада какая то.
зы: Что за развод такой? меня что кинули? или так и должно быть?
1) Создаем в любом удобном месте текстовый файл. Называем его WindowsKey
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.



4) Открываем файл двойным кликом. Появится окно с вашим ключом активации.



Нажимаете ОК и появляется окно с более подробной информацией.

Сергей Метеньканич
Сергей Метеньканич
3 761
Лучший ответ
Кинули, но так и должно быть. Активация платная. А Вы не робейте - в поисковую строку вбивайте "скачать активатор Windows 8" (без кавычек) . Качаем, читаем инструкцию и активируем, тем самым нанося сокрушительный удар экономике США. :):):)
Сергей Вахлов
Сергей Вахлов
84 126
Активация автоматическая через интернет.
Нажми на кнопку Активировать. Может потребоваться подключение к интернету.
Артем Землянов
Артем Землянов
79 974
не должна она требовать ключа. Либо кидок (поставили левую винду на бук без ОС, и продали как с ОС) , либо я чего-то недопонимаю
Ключ вшит в БИОС.
Если купил с системой, при первом соединении с интернет, она автоматически активируется.
Иван Ипполитов
Иван Ипполитов
74 307
Имелась такая же проблема, используй mwfix

Похожие вопросы