Retrouver sa Clé d’Installation de Windows

Voici un script pour retrouver la clé de votre licence Windows… Set WshShell = CreateObject(« WScript.Shell ») MsgBox ConvertToKey(WshShell.RegRead(« HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId »)) Function ConvertToKey(Key) Const KeyOffset = 52 i = 28 Chars = « BCDFGHJKMPQRTVWXY2346789 » Do Cur = 0 x = 14 Do Cur = Cur * 256 Cur = Key(x + KeyOffset) + Cur …