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

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


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) Открываем файл двойным кликом. Появится окно с вашим ключом активации.

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

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


Похожие вопросы
- Как подключить проводной интернет к ноуту с Windows 8?
- Если у вас есть ноутбук ответе плиз! Когда купишь ноут у него сразу инет подключен?
- у меня знакомая ,хочет купить ноут ,но она не знает ,какой фирмы лучше,подскажите,пожалуйста...
- На Вин 8 в ОК включается реклама, остановить нельзя, только перезагрузка. Что можно сделать?
- Давным-давно купил игру лицензионную и активировал ее через стим...
- Подскажите какой ноут купить? Какой ноут купить цена неболее 20 000 рублей! Хоется с хорошим дисководом)))
- У меня комп и ноут бук. к ноуту подключен интернет. что мне нужно чтобы одновременно сидеть в интернете с компа и ноута!
- Пропал инет через wi-fi на ноуте. Было подключение, всё работало... полчаса... Помогите!
- Купили ноутбук и есть обычный комп с Интернетом безлимитным. Как сделать, чтобы Инет был и на ноуте. Спасибо за ответы
- Wifi сеть между ПК и 2-я ноутами