На некоторых ноутбуках перестали указывать (наклеивать) ключ с помощью которого произведена активации данной копии винды, поэтому чтобы вытащить его из реестра и раскодировать для отображения в обычном читаемом варианте применяем данный скрипт, он ничего не меняет в системе, его задача только отображение информационного окна... проверено на версии Sinle Language (windows 8 для одного языка)
в виде кода скрипт выглядит так:
Set WshShell = CreateObject("WScript.Shell")
regKey = "HKLMSOFTWAREMicrosoftWindows NTCurrentVersion"
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
Вообщем после приобретения простенького, но с закосами под продвинутый ультрабук, ноута ASUS X202E была поставлена цель избавиться от предустановленного софта и получить чистенькую лицензионную машину, сразу скажу что это получилось, но танцы с бубнами 🙂 были продолжительными
итак по порядку:
1) определил и записал лицензионный номер установленной производителем винды
2) акронисом сделал бекап всех разделов жёсткого диска
3) скачал два майкрософтовских iso-образа (версия для одного языка и профессиональная)
4) акронисом очистил и отформатировал системный диск
5) создал boot флешку с обычной версией винды (для одного языка)
6) перезагрузился и начал установку из под bios и тут первый облом (пишет примерно следующее, введённый вами ключ не соответствует ни одной версии введите другой номер) но вся беда в том, что никакой ключ я не вводил и сделать это нет никакой возможности т.к. установщик вообще не показывает окно ввода лицензионного ключа (ни до ни после предупреждения)
7) акронисом восстановил прежний системный раздел, загрузился и полез на сайт к майкрософту за обновлением до версии PRO (возможно на данном этапе надо было попробовать запустить установку из под системы, но сделать это не догадался, да и уж очень был настроен на приобретение профессиональной версии)
8- выбрал обновление за 1290 руб., с помощником по установке прошли все этапы (проверка, оплата, загрузка) и сразу запустил установку
9) затребовало новый ключ, ввёл, система приняла его без проблем и пошёл процесс обновления, после перезагрузок получил профессиональную версию, но всё с той же кучей ненужных программ 👿
10) в письме от майкрософта нашёл ссылку для скачивания образа купленной версии про (при переходе по ней, сразу затребуют соответствующий лицензионный ключ) скачал и сохранил как iso-образ, затем записал его на болванку
11) перезагрузился и запустил установку из под bios (системный диск не стал очищать, решил просто проверить) - результат тот же, что и в пункте №6
12) загрузился в обычном режиме и запустил установку с сидюка из под винды, процесс пошёл, опять спросили лицензионный ключ, затем на вопрос что сохранить ответил ничего... и в итоге версия Windows 8 Pro - получена 🙂 и без всякого дополнительного софта, прежняя версия сохранилась в папке Windows.old (кстати размер её 20 с лишним гигов) но она безболезненно была удалена через Очистку диска
По первым впечатлениям система работает быстрее и стабильнее (по крайней мере схема электропитания установилась в сбалансированный режим и не прыгает то в производительный то в asus Power4Gear), а по функциям профессиональная восьмёрка это где-то как семёрка ультимейт
решил забить на гарантию и провести апгрейд жёсткого диска, после некоторых мучений вскрыл таки корпус, оказывается там по кругу пластиковые защёлки, мне удалось их не поломать (открывать начинал с углов которые со стороны тачпада)
воткнул вместо штатного диска плекстор ssd на 128 гигов https://market.yandex.ru/model.xml?modelid=8517375&hid=91033 не забываем что диск необходим тонкий, толщина 7 мм
предварительно сделал следующее, подключил новый диск через usb к ноутбуку (специально из-за Windows 8) и инициализировал его как GPT, затем на штатном диске удалил раздел D и расширил диск C на освободившееся место т.е. вместо 5-ти разделов на харде стало 4-ре. затем загрузился с сидюка с 13-ым акронисом и клонировал системный диск на новый ssd в ручном режиме (правда ничего не менял в настройках акрониса, просто хотел увидеть какого размера будут новые разделы на плексторе) в итоге новый диск С получился 98 гигов, в скрытых разделах размер не изменился...
ноут в работе стал стремительным не по детски жаль что асус так начудил с памятью, мало того что припаял намертво, так ещё и в однокальном режиме 👿
теперь видео это самое узкое место и главная причина здесь именно из-за памяти... а ведь мог бы получиться настоящий ультрабук за 19 тыров
цифры в индексе производительности у меня теперь такие:
6.3
5.9
4.3
6.1
8.1
круто у меня такой же был
Ноут на основе виндоус восемь , не может войти в систему , в чем может быть причина!?
😀