нужно запустить PowerShell с правами администратора для этого в меню Пуск в строке поиска пишем powershell.В появившемся списке выбираем из двух вариантов для 32х-разрядной: Windows Powershell (86), для 64х-разрядной: Windows Powershell.Выбрав свой вариант кликаем по нему ПКМ в окне контекстного меню нажимаем пункт: Запуск от имени администратора, при запросе пароля вводим его.Копируем это значение в окно запущенной утилиты жмем Enter: Set-ExecutionPolicy RemoteSignedДля изменения политики выполнения нажимаем еще раз Enter.И последнее что нужно сделать вести следующие значение: Import-Module C:\Users\Пользователь\Desktop\office.ps1; Get-MSOfficeProductKeyПосле чего вы увидите свой ключ от программы Microsoft Office на экране монитора.У меня (win10-64 + of2016) не сработал. Win7-32+Of2010 сработал
Содержание файла office.ps1:
function Get-MSOfficeProductKey { param( [string[]]$computerName = "." ) $product = @() $hklm = 2147483650 $path = "SOFTWARE\Microsoft\Office" foreach ($computer in $computerName) { $wmi = [WMIClass]"\\$computer\root\default:stdRegProv" $subkeys1 = $wmi.EnumKey($hklm,$path) foreach ($subkey1 in $subkeys1.snames) { $subkeys2 = $wmi.EnumKey($hklm,"$path\$subkey1") foreach ($subkey2 in $subkeys2.snames) { $subkeys3 = $wmi.EnumKey($hklm,"$path\$subkey1\$subkey2") foreach ($subkey3 in $subkeys3.snames) { $subkeys4 = $wmi.EnumValues($hklm,"$path\$subkey1\$subkey2\$subkey3") foreach ($subkey4 in $subkeys4.snames) { if ($subkey4 -eq "digitalproductid") { $temp = "" | select ComputerName,ProductName,ProductKey $temp.ComputerName = $computer $productName = $wmi.GetStringValue($hklm,"$path\$subkey1\$subkey2\$subkey3","productname") $temp.ProductName = $productName.sValue $data = $wmi.GetBinaryValue($hklm,"$path\$subkey1\$subkey2\$subkey3","digitalproductid") $valueData = ($data.uValue)[52..66] # decrypt base24 encoded binary data $productKey = "" $chars = "BCDFGHJKMPQRTVWXY2346789" for ($i = 24; $i -ge 0; $i—) { $r = 0 for ($j = 14; $j -ge 0; $j—) { $r = ($r * 256) -bxor $valueData[$j] $valueData[$j] = [math]::Truncate($r / 24) $r = $r % 24 } $productKey = $chars[$r] + $productKey if (($i % 5) -eq 0 -and $i -ne 0) { $productKey = "-" + $productKey } } $temp.ProductKey = $productKey $product += $temp } } } } } } $product}
Ущербный вариант: как можно узнать только последние 5 цифр ключа продукта.В командной строке пишем следующее:1. Для Microsoft Office 2010Для 32-разрядных системcscript "C:\Program Files\Microsoft Office\Office14\OSPP.VBS" /dstatusДля 64-разрядных системcscript "c:\Program Files (x86)\Microsoft Office\Office14\OSPP.VBS" /dstatus2. Для Microsoft Office 2013Для 32-разрядных системcscript "C:\Program Files\Microsoft Office\Office15\OSPP.VBS" /dstatusДля 64-разрядных системcscript "C:\Program Files (x86)\Microsoft Office\Office15\OSPP.VBS" /dstatus