Cum sa afli product key pentru Windows-ul instalat.

Configurare noua (How To)

Situatie

Atunci cand se doreste sa se afle Windows product key pentru o statie cumparata cu Windows preinstalat si activat.

Solutie

Pasi de urmat

Se creaza un document text nou.

Se copiaza si se insereaza in document urmatorul text:

Set WshShell = CreateObject(“WScript.Shell”)
MsgBox ConvertToKey(WshShell.RegRead(“HKLMSOFTWAREMicrosoftWindows NTCurrentVersionDigitalProductId”))

Function ConvertToKey(Key)
Const KeyOffset = 52
i = 28
Chars = “BCDFGHJKMPQRTVWXY2346789”
Do
Cur = 0
x = 14
Do
Cur = Cur * 256
Cur = Key(x + KeyOffset) + Cur
Key(x + KeyOffset) = (Cur 24) And 255
Cur = Cur Mod 24
x = x -1
Loop While x >= 0
i = i -1
KeyOutput = Mid(Chars, Cur + 1, 1) & KeyOutput
If (((29 – i) Mod 6) = 0) And (i <> -1) Then
i = i -1
KeyOutput = “-” & KeyOutput
End If
Loop While i >= 0
ConvertToKey = KeyOutput
End Function

In tabul ‘File’ se da click pe ‘Save As’, se alege ‘All Files’ pentru tipul fisierului si se salveaza cu denumirea “productkey.vbs”.

Se deschide fisierul si va aparea product key pentru Windows-ul instalat pe statie. 

Tip solutie

Permanent

Voteaza

(19 din 38 persoane apreciaza acest articol)

Despre Autor

Leave A Comment?