Bonjours mes très chers,
je vous reviens avec la débauche d'énergie de notre très cher rack-net sur Microsoft.
Vous souhaitez réinstaller Windows mais pas moyen de mettre la main sur la clé de licence, pas de panique…
Ça m’est arrivé aujourd’hui, j’avais besoin de la clé de licence d’une machine sous Windows server 2012 et pas moyen de la retrouver.
Ce serveur déconnait et il y avait nécessité de le réinstaller, bref, je passe les détails mais pour retrouver la clé de licence Windows il m’a fallu simplement rechercher sur Google le tuto qui va bien et retranscrire un script tout simple puis l’exécuter… Pas besoin d'installer le moindre logiciel. Durée totale de la manipulation : moins d’1 minutes!
Il s'avère que cette clé de produit est stockée dans la base de registre... Mais elle est illisible en l'état car en format binaire. Qu'à cela ne tienne, un VBscript suffira le décoder à notre place.
A noter que cette astuce fonctionnera quelque soit votre version de 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
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
Powered by Crack-net - 16 décembre 2015
Allez bonne fin de semaine !