Как узнать лицензионный ключ ос windows

2 Вариант: Узнаем Windows key с помощью скрипта

Для того что бы узнать Windows key или ключ продукта Windows для этого нужно сделать всего пару простых действия:

1) Создать текстовый документ 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 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) Сохраняем файл

4) Файл нужно сохранить в формате VBS

5) После этого запускаем наш файл и переписываем наш

Вот такой, незамысловатый способ что бы быстро узнать свой ключ windows

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *

Adblock
detector