Cum pot găsi ferestrele cheie de activare

Cum pot găsi Windows cheie de activare

Deseori, utilizatorii se confruntă cu necesitatea de a reinstala licența pentru Windows. O caracteristică a instalării sistemului de operare, în acest caz, este necesitatea de a introduce cheia de activare, fără de care sistemul va funcționa cu unele restricții. Ce se poate face în cazul în care cheia de activare este pierdut sau autocolant pe laptop-ul a purtat off? Acest articol descrie o modalitate simplă de a afla cum cheia de activare pentru Windows.

cheie Determinarea folosind VBScript

Crearea în orice loc convenabil un fișier text, de exemplu, pe desktop. Redenumiți-l la WindowsKey

Set WshShell = CreateObject ( "WScript.Shell")
regkey = "HKLM \ SOFTWARE \ Microsoft \ Windows NT \ CurrentVersion"
DigitalProductID = WshShell.RegRead (regkey "DigitalProductID")
Win8ProductName = "Windows Nume produs:" WshShell.RegRead (regkey "ProductName") vbNewLine
Win8ProductID = "Windows ID-ul produsului:" WshShell.RegRead (regkey "ProductID") vbNewLine
Win8ProductKey = ConvertToKey (DigitalProductID)
strProductKey = "Windows 8 cheie:" Win8ProductKey

Win8ProductID = Win8ProductName Win8ProductID strProductKey
MsgBox (Win8ProductKey)
MsgBox (Win8ProductID)
ConvertToKey Funcția (regkey)
Const KeyOffset = 52
isWin8 = (regkey (66) \ 6) și 1
regkey (66) = (regkey (66) și HF7) Sau ((isWin8 și 2) * 4)
j = 24
Chars = "BCDFGHJKMPQRTVWXY2346789"
face
Javră = 0,
y = 14
face
= * Javră 256 javră
= Javră regkey (y + KeyOffset) + javră
regkey (y + KeyOffset) = (Cur \ 24)
= Mod javră 24 javră
y = y -1
Bucla În timp ce y> = 0
j = j -1
winKeyOutput = Mid (Chars, + 1 Cur, 1) winKeyOutput
Ultimul = Cur
Buclă În timp ce j> = 0
Dacă (isWin8 = 1) Atunci
keypart1 = Mid (winKeyOutput, 2, Ultima)
insera = "N"
winKeyOutput = Înlocuiți (winKeyOutput, keypart1, keypart1 inserție, 2, 1, 0)
Dacă Ultima = 0 Apoi winKeyOutput = inserați 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