Experience high tech
Bienvenue sur notre forum de discussion, posez vos questions en toute liberté et bonne journée.
Cordialement. DC.
Derniers sujets
» Astuces : Comment faire un rendu HD C4D ?
Lun 2 Jan - 16:53 par Admin

» Windows : Retirer Cortana sous Windows 10.
Ven 2 Déc - 16:24 par Admin

» Windows : Comment installer de nouvelles polices ?
Sam 9 Avr - 17:46 par Admin

» Windows : HDD interne non détecté ?
Mer 16 Mar - 23:25 par Admin

» Windows : Fin de la version d'essai !!!
Ven 22 Jan - 17:05 par Admin

» MacOS : Antivirus et pare-feu !
Mer 20 Jan - 22:10 par Admin

» Ecran noir Clash Of Clans
Mer 20 Jan - 22:02 par Admin

» Vente : Dalle 13" d'occasion.
Dim 17 Jan - 11:44 par Admin

» Vente : Dalles 15" d'occasion.
Dim 17 Jan - 11:40 par Admin

Chaîne Youtube
Chaîne Youtube

Windows : Trouver sa clé de licence Microsoft

Voir le sujet précédent Voir le sujet suivant Aller en bas

Windows : Trouver sa clé de licence Microsoft

Message par Admin le Ven 25 Déc - 18:47

Bonjour à toutes et à tous,

Difficulté : Difficile (Confirmé nécessite une connaissance en script VBS et MS-DOS)

Nous savons tous que depuis la fin de Windows 7 Microsoft s'est engagé à ne plus donner les clés d'activations...

Alors voici par plusieurs moyen de la retrouver.

Par un bon *mot censuré par Admin* VBS : (Copiez le code et collez le dans un bloc note et enregistrez le dans votre bureau avec la mention [.VBS] à la fin.)
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

Dans l'invite de commande ADMIN :
Copiez collez ça dans l'invite de commande :
Code:
powershell "(Get-WmiObject -query ‘select * from SoftwareLicensingService’).OA3xOriginalProductKey"
Je tiens à rappeler que dans l'invite de commande le raccourcis "CTRL+C" ne fonctionne pas il faut le faire à la souris.

Par un logiciel :
x64
x86

Microsoft nous propose de leur téléphoner et de leur envoyer la facture d'achat d'un ordinateur.
Il répondrons avec la clé de produit Microsoft

_________________
On ne sait pas tout même à 60 ans, La vie est une guerre qui ne tient qu'à nous, de veillez sur nos sorts et de faire les bons choix.
avatar
Admin
Admin

Messages : 143
Points : 1284
Date d'inscription : 14/08/2015
Age : 47
Localisation : Paris

Voir le profil de l'utilisateur http://hte-informatique.forum2discussions.com

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

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