Sebw.infO

En parcourant le web
User Avatar

Afficger la clé de licence Windows avec un script Vbscript.

Ajouté par h2tp Aucun commentaire 17 octobre 2016 Windows activation windows sauvergarde


get windows code back.tb

Afficher la clé du produit simplement.

Une chose que j'ai toujours trouvé frustrante c'est d'acheter un PC sans numero de serie sur l'étiquette (entre autres) et que vous ne pouvez pas toujours retrouver la clé de produit.

Comment un Geek retrouve cette clé ?

On ouvre un nouveau document texte et on change l'extension en:

.vbs

On y inscrit ceci:

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

 

 

Il fonctionne très bien!

Appuyez sur Ctrl + C tandis que la boîte de dialogue est ouverte pour copier votre code dans le presse-papiers.


Vous avez aimé cet article ? Alors partagez-le avec vos amis en cliquant sur les boutons ci-dessous :


Écrire un commentaire

Quelle est la cinquième lettre du mot tfidmk ? :