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

Poster un nouveau sujet   Ce sujet est verrouillé, vous ne pouvez pas éditer les messages ou faire de réponses.

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.

Admin
Admin

Messages : 143
Points : 977
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

Poster un nouveau sujet   Ce sujet est verrouillé, vous ne pouvez pas éditer les messages ou faire de réponses.
 
Permission de ce forum:
Vous pouvez répondre aux sujets dans ce forum