+7 950 002 35 21

Ключ Windows, узнать о лицензии операционной системы.

Visual Basic Scripting

  1. Открываем блокнот, обычный "Windows" блокнот. Если вы пользуетесь другим блокнотом стороннего разработчика к примеру "Notepad++", тоже подойдет и вставляем в него следующий код :
  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. Теперь надо его сохранить, название файла может быть любым, скажем "WinKey.vbs" Что после точки это расширение файла и оно обязательно должно быть "vbs" блокнот по умолчанию сохранят с расширением "txt" текстовый файл. А так как у нас скрипт и соответственно его надо выполнить. Верхний левый угол блокнота, выбираем "файл > Сохранить как"
  4. Откроется окно выбора где сохранить и с какими параметрами. Я выбрал сохранить на рабочем столе и в поле "имя файла"вписываем название на ваше усмотрение и расширение после точки "vbs". Пример на картинке ниже.
  5. Если сделали все как написано у меня в примере то у вас на рабочем столе должен быть файл как на картинке.
  6. license_win
  7. Теперь кликая на этот файл мышкой два раза, откроется окно в котором будет информация о лицензионном ключе "Windows" картинка ниже. Кликая по кнопке "OK" в информационном окне, откроется еще одно окно с более подробной информацией. Где кроме ключа лицензии, будет установленная версия "Windows" и "ID" операционной системы. Картинки ниже, под номерами 1 и 2 в зависимости последствия появления.
  8. Программа которая покажет все ключи в вашей системе

  9. Есть программа которая не требует инсталляции но только для "x64 Windows", показывает помимо лицензии "Windows" еще "Microsoft Office" лицензионный ключ. Для "x32 Windows" как не странно но есть только с инсталляцией. Скачать программу можно для x32 и для x64. Программа проста как и файл в первом примере, запустили и посмотрели:
  10. Скачать x64
    Скачать x32

    Recover-keys

  11. Название программы Recover-keys программа платная но есть и пробная версия которая даст вам информацию по вашим продуктам первые 4 цифры. Зачем такая демо версия не понятно ? Программу надо инсталлировать но она того стоит, если вы конечно пользуетесь множеством лицензионных программ. Программа может показать вам и сохранить в любом формате больше 8000 тыс. ключей от разных программ. Вот что написано на сайте самой программы :
  12. Скачать
  13. Recover Keys является хоть и простым, но довольно мощным приложением Windows, созданным с целью защиты ключей активации для различных программных продуктов, установленных на локальном или удаленных компьютерах, а также в случаях, если жесткий диск не является функциональным.
  14. Потеря ключей активации - это всегда неприятная и часто недешевая проблема. В таких случаях вам обычно приходится связываться с разработчиками каждой программы или даже покупать новую версию всех программ.
  15. Теперь вы можете защититься от такой проблемы и надежно сохранить дубликаты всех своих ключей! Recover Keys оперативно производит анализ вашей системы и около 8000+программных продуктов и составляет список активационных ключей для этих программ. Ну а затем вы сможете уже сохранить, пере сохранить, распечатать, или экспортировать в (Word, Excel, PDF,HTML, CSV, XML) лицензионная информация. Благодаря удобному интерфейсу и доступным функциональным качествам, Recover Keys может с легкостью использоваться как профессионалами, так и не очень опытными пользователями.
  16. Не плохо, но цель должна оправдывать себя. Такая программа действительно подойдет не каждому. Делать обзор этой программы я не буду, потому что она мало кому пригодиться, когда вокруг есть множество бесплатных дистрибутивов. Конечно для большой компании это будет выгодно, но не для домашнего использования.
  17. PowerShell

  18. В ос "Windows" есть оболочка скажем так из "Unix" название "PowerShell" вот с помощью нее мы и узнаем наш ключ лицензии на ос. Если у вас "windows 10" то вы можете набрать в поиске "PowerShell" и работать в этой оболочке. Другой вариант если стоит версия "Win" меньше чем 10, тогда открываем "CMD" от имени администратора (В обоих случаях запуск от имени администратора). В командной строке, чтобы работать "PS" набираем команду "powershell" без кавычек. После набора команды, в начале строчки должно быть "PS" Картинка ниже :
  19. function Get-WindowsKey {
    param ($targets = ".")
    $hklm = 2147483650
    $regPath = "Software\Microsoft\Windows NT\CurrentVersion"
    $regValue = "DigitalProductId"
    Foreach ($target in $targets) {
    $productKey = $null
    $win32os = $null
    $wmi = [WMIClass]"\\$target\root\default:stdRegProv"
    $data = $wmi.GetBinaryValue($hklm,$regPath,$regValue)
    $binArray = ($data.uValue)[52..66]
    $charsArray = "B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9"
    ## decrypt base24 encoded binary data
    For ($i = 24; $i -ge 0; $i--) {
    $k = 0
    For ($j = 14; $j -ge 0; $j--) {
    $k = $k * 256 -bxor $binArray[$j]
    $binArray[$j] = [math]::truncate($k / 24)
    $k = $k % 24
    }
    $productKey = $charsArray[$k] + $productKey
    If (($i % 5 -eq 0) -and ($i -ne 0)) {
    $productKey = "-" + $productKey
    }
    }
    $win32os = Get-WmiObject Win32_OperatingSystem -computer $target
    $obj = New-Object Object
    $obj | Add-Member Noteproperty Computer -value $target
    $obj | Add-Member Noteproperty Caption -value $win32os.Caption
    $obj | Add-Member Noteproperty CSDVersion -value $win32os.CSDVersion
    $obj | Add-Member Noteproperty OSArch -value $win32os.OSArchitecture
    $obj | Add-Member Noteproperty BuildNumber -value $win32os.BuildNumber
    $obj | Add-Member Noteproperty RegisteredTo -value $win32os.RegisteredUser
    $obj | Add-Member Noteproperty ProductID -value $win32os.SerialNumber
    $obj | Add-Member Noteproperty ProductKey -value $productkey
    $obj
    }
    }
  20. Скопировали вставили в блокнот и сохранили !
  21. license_win
  22. Далее возвращаемся к командной строке, где у нас "ps" и набираем команду "Set-ExecutionPolicy RemoteSigned"тем самым разрешая выполнения не подписанных скриптов.
  23. Теперь подключим модуль, созданный в блокноте, набираем : "Import-Module здесь пишем путь к файлу" Путь к файлу модулю, который делали в блокноте. Ну собственно путь это где вы его сохранили. Смотрим на пример, картинка ниже :
  24. Если у вас получилась ошибка подключения модуля, не расстраивайтесь. Выберите правой кнопкой мышки по файлу модулю и в контекстном меню выберите изменить.
  25. license_win
  26. Запуститься "Powershell ISE"
  27. Нажимаем сохранить и закрываем программу !
  28. Ну вот и добрались до завершения, пишем на выполнение скрипта команду : "Get-WindowsProduct" нажимаем "Enter" и радуемся ответом.
polosa
Подписка на новости сайта
Ваш e-mail: