Afficher son numéro de série de Windows sans logiciel

Publié le 23 janvier 2015 par John Lebrument

Il existe des tas de logiciels qui permettent d’afficher la clé de licence Windows de l’ordinateur sur lequel on travail, cette clé qui est nécessaire pour pouvoir activer un Windows.

Voici un script VBS qui va permettre de faire la même chose. Comme ce n’est qu’un simple script, il peut s’exécuter depuis un simple compte utilisateur. Ce qui veut dire que si vous n’avez aucune morale (ce qui n’est pas mon cas bien entendu) vous allez pouvoir récupérer la clé de licence du Windows de votre bureau ou de n’importe quelle machine. Cela fonctionne avec toutes les versions de Windows, intéressant pour ceux qui veulent pirater leur licence Windows ce qui est mal bien entendu. Voici le script à télécharger et à exécuter.

Pour ceux qui voudraient le copier voici le contenu du script :

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