Это один из комментариев к статье Как узнать ключ windows 7 от Kyle.
Спасибо, очень полезная информация. Буду юзать АИДА64.
Кстати, сайт майкрософт выдает еще такой метод http://answers.microsoft.com/ru-ru/windows/wiki/windows_8-performance/%D1%83%D0%B7%D0%BD%D0%B0%D1%82%D1%8C/e03d2b09-070c-4d29-ac8b-72a13230511c
Было бы полезно узнать метод для ключа Office.
Kyle получил(а) ответ:
Как узнать ключ windows 7
Спасибо за метод. Я тоже не жалую сторонний софт, если что то можно сделать средствами самой системы. Но в этот раз было решено написать именно о таком способе, поскольку многим людям гораздо проще поставить еще какую нибудь утилиту, вместо возни со скриптами и командной строкой.
Что касается ключа для офисного пакета Microsoft Office, для него тоже имеется способ, аналогичный приведенному вами. Нативными средствами Windows и Powershell можно сделать такой же скрипт VBS для извлечения из реестра ключа
Офиса.
Вставляете скрипт следующего содержания в обычный блокнот и сохраняете с любым именем и расширением .VBS
Set WshShell = CreateObject("WScript.Shell")
MsgBox ConvertToKey(WshShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))
Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = "BCDFGHJKMPQRTVWXY2346789"
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur \ 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 - i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = "-" & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function
Или вы можете скачать готовый скрипт для извлечения ключа установленного MS Office.
После запуска скрипта будет выведено окно с актуальным лицензионным ключом вашей копии МS Office. Метод не зависит от версии офисного пакета и будет действовать как для MS office 2010, так и для 2013.
