freemaintenance
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Comment puis-je avoir ma clef Windows 7 ?  ex : G598H-G7T88-GT8UI-K5D8A-98YI2 Facebo10
Comment puis-je avoir ma clef Windows 7 ?  ex : G598H-G7T88-GT8UI-K5D8A-98YI2 Twitte10
Comment puis-je avoir ma clef Windows 7 ?  ex : G598H-G7T88-GT8UI-K5D8A-98YI2 Astuce10
Comment puis-je avoir ma clef Windows 7 ?  ex : G598H-G7T88-GT8UI-K5D8A-98YI2 Micros10
Comment puis-je avoir ma clef Windows 7 ?  ex : G598H-G7T88-GT8UI-K5D8A-98YI2 Pc_ast10
Comment puis-je avoir ma clef Windows 7 ?  ex : G598H-G7T88-GT8UI-K5D8A-98YI2 Vulgar10
Comment puis-je avoir ma clef Windows 7 ?  ex : G598H-G7T88-GT8UI-K5D8A-98YI2 Window11
Comment puis-je avoir ma clef Windows 7 ?  ex : G598H-G7T88-GT8UI-K5D8A-98YI2 Jdn10
entraide informatique
Le deal à ne pas rater :
ETB Pokémon Fable Nébuleuse : où acheter le coffret dresseur ...
Voir le deal

Comment puis-je avoir ma clef Windows 7 ? ex : G598H-G7T88-GT8UI-K5D8A-98YI2

Aller en bas

Comment puis-je avoir ma clef Windows 7 ?  ex : G598H-G7T88-GT8UI-K5D8A-98YI2 Empty Comment puis-je avoir ma clef Windows 7 ? ex : G598H-G7T88-GT8UI-K5D8A-98YI2

Message par Cédric Mer 28 Jan - 18:32

Alors, je suis sûr que comme beaucoup de personnes vous ne disposez pas toujours de votre clef Windows sous la main  lol  bas voilà la petite astuce qui ma servie chez certaines personnes mainte et mainte fois  study


Alors pour faire au plus simple dans un premier temps :

-Sur votre bureau clic droit et créé un dossier txt ( clic droit/nouveau/Document texte )

-Ensuite clique gauche sur Sélectionner le contenu à droite du code que je vous donne et clic droit copier et coller le dans le document texte  :  


Code:
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


-Ensuite cliquez sur le menu fichier puis sur enregistrer sous

-Déroulez ensuite la liste type et sélectionnez l'option tous les fichiers (*.*), très important !

-Ensuite donnez un nom au document texte suivi de l'extension .vbs,    ex : MaCléWindows.vbs   , puis enregistrer votre fichier ou vous le désirez.

-Fermez le document texte, et pour connaître votre clé produit, double cliquez simplement sur le fichier MaCléWindows.vbs  la ou vous l'avez mis.

-La clé de votre produit Windows est affichée à l'écran, juste à la recopier ou à faire un copier/coller   Smile

et voilà   +1
Cédric
Cédric

Masculin Messages : 126
Date d'inscription : 20/12/2014
Localisation : 38260 Bossieu

https://freemaintenance.1fr1.net

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum