[Pillligrim]

Воспользовавшись поиском по конференции, Вы бы несомненно нашли множество аналогичных тем (скажем: Доступ - [решено] Потерял ключи Windows 7), и рано или поздно дошли бы, например, до: Отображение подробной информации о лицензии — Управление активацией Windows 7, Windows 8 и Office 2010 из командной строки | Вадим Стеркин. »

До всего я дошел, вот только ответа не нашел.

Pillligrim, это максимум того, что Вы получите. »

То есть, где то (хотелось бы ещё знать где) хранятся только последние 5 знаков, а какой в этом смысл, зачем они системе?

[diagnoz_]

попробуйте так:
создайте текстовый документ с именем get_windows_8_key.vbs и сохраните его на рабочем столе, в него вставьте код ниже, сохраните и запустите его:
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

[Iska]

а какой в этом смысл »

Этих цифр вполне достаточно, чтобы администратор по этим цифрам мог установить соответствие имеющегося в наличии количества Product Key их физическому расположению. Либо пользователю — установить то же соответствие Product Key с наклейки и на машине. То есть, попросту убедиться в том, что использованный для активации ключ — верный.

То есть, где то (хотелось бы ещё знать где) хранятся только последние 5 знаков, »

«Нэ знаю» . Мне и искать-то не на чем.

с именем get_windows_8_key.vbs »

А также с именем «get_windows_7_key.vbs» … 2008 R2, Vista, 2008, Windows XP, 2003, 2000 как минимум .

[yurfed]

А также с именем «get_windows_7_key.vbs» … 2008 R2, Vista, 2008, Windows XP, 2003, 2000 как минимум »

Товарищь тупо копипастит без ссылок на источники
Как узнать ключ Windows 8

[Vadikan]

Видно, только почему то он не совпадает с наклейкой на ноуте »

И не должен.

diagnoz_, если хотите исправиться, вставьте ссылку в сообщение, а заодно http://forum.oszone.net/misc.php?do=bbcode#code

[Pillligrim]

Этих цифр вполне достаточно, чтобы администратор по этим цифрам мог установить соответствие имеющегося в наличии количества Product Key их физическому расположению. Либо пользователю — установить то же соответствие Product Key с наклейки и на машине. То есть, попросту убедиться в том, что использованный для активации ключ — верный. »

Вы вполне возможно правы, но смущает одно, почему утилиты и скрипты показывают ВВВВ-ВВВВ-ВВВВ-ВВВВ, а не ВВВВ-ВВВВ-ВВВВ-(последние 5 знаков)?

[Iska]

но смущает одно, почему утилиты и скрипты показывают ВВВВ-ВВВВ-ВВВВ-ВВВВ, а не ВВВВ-ВВВВ-ВВВВ-(последние 5 знаков)? »

А Вы посмотрите — есть ли у Вас параметр «DigitalProductId» в разделе «HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion»? «Утилиты и скрипты» вычисляют его оттуда. А «slmgr.vbs» для этого обращается к Wbeм классу «SoftwareLicensingProduct» (SoftwareLicensingProduct class (Windows)) и пользует свойство «PartialProductKey» полученных экземпляров объектов. Ничто не мешает правильным «скриптам и утилитам» работать аналогичным образом.

[diagnoz_]

у меня DigitalProductId (который в Панель управления\Система и безопасность\Система)находится в ветке HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Registration, где и прописан код продукта в цифровом виде.

[Pillligrim]

есть ли у Вас параметр «DigitalProductId» в разделе «HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion»? »

Есть, а ещё есть DigitalProductId64 и значения там другие, с чего бы это?

у меня DigitalProductId (который в Панель управления\Система и безопасность\Система)находится в ветке HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Internet Explorer\Registration, где и прописан код продукта в цифровом виде. »

а здесь те же значения.

[Iska]

Есть, а ещё есть DigitalProductId64 и значения там другие, с чего бы это? »

Не знаю.

Можете отослать мне выгруженный подраздел HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion в личку. Посмотрим, как «скрипты показывают ВВВВ-ВВВВ…». Можете оставить в файле реестра один только параметр «DigitalProductId».