Як дізнатися ключ активації Windows
Нерідко користувачі стикаються з необхідністю перевстановити ліцензійну Windows. Особливістю установки операційної системи, в даному випадку, є необхідність введення ключа активації, без якого система буде функціонувати з деякими обмеженнями. Що робити, якщо ключ активації загублений або наклейка на ноутбуці стерлася? У даній статті описаний простий спосіб як дізнатися ключ активації Windows.
Визначення ключа за допомогою VBScript
Створіть в будь-якому зручному місці текстовий файл, наприклад на робочому столі. Перейменуйте його в WindowsKey
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
Натисніть клавіші Ctrl + S щоб зберегти файл.
Змініть розширення файлу на .vbs
Двічі клацніть по файлу WindowsKey.vbs. з'явиться вікно з вашим ключем активації
Натисніть кнопку OK. з'явиться ще одне вікно з більш детальною інформацією.
Також ви можете скачати zip-архів з файлом WindowsKey.vbs