Comment trouver ma clé de licence Windows 11 ou 10 ?

C'est une question courante parmi les utilisateurs d'ordinateurs ; comment trouver ma clé de licence Windows

Il est toujours facile de connaître votre clé de licence Windows, votre clé de produit ou votre clé de licence. Ce code est nécessaire pour Activer les fenêtres. Si vous envisagez de réinstaller Windows, par exemple après une panne du système ou lors d'une mise à niveau de votre matériel, vous aurez besoin de votre clé de licence pour réactiver le système d'exploitation.

Quand tu en auras un nouveau ordinateur et vous souhaitez transférer votre licence Windows existante, vous devez connaître le code de licence. Ceci est particulièrement important si vous disposez d’une licence de vente au détail, transférable entre appareils.

Vous souhaiterez peut-être vérifier l'authenticité de votre installation Windows, surtout si vous avez acheté un ordinateur d'occasion. Connaître la clé de licence peut vous aider à confirmer que vous utilisez une copie légitime de Windows. Il peut également parfois être nécessaire de fournir votre clé de licence Windows lorsque vous recherchez une assistance technique ou un service client.

Bref, de nombreuses raisons pour lesquelles vous voudriez connaître la clé de licence ou la clé de produit. Il existe désormais de nombreux outils disponibles pour rechercher ce code, plus à ce sujet dans cet article. Dans ce guide, j'explique comment afficher la clé de licence sans aucun outil, mais avec un script simple. Voilà comment cela fonctionne.

Comment trouver ma clé de licence Windows 11 ou 10 ?

Pour commencer, ouvrez le Bloc-notes sur votre ordinateur.

Copiez et collez ensuite les scripts suivants dans un nouveau document texte :

Option explicite

Dim objshell, chemin, DigitalID, résultat
Définir objshell = CreateObject("WScript.Shell")
'Définir le chemin de la clé de registre
Chemin = « HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ »
'Valeur de la clé de registre
DigitalID = objshell.RegRead (Chemin & « DigitalProductId »)
Dim ProductName, ProductID, ProductKey, ProductData
'Obtenir le nom du produit, l'ID du produit et la clé du produit
ProductName = « Nom du produit : » & objshell.RegRead (Chemin & « Nom du produit »)
ProductID = « ID produit : » & objshell.RegRead (Chemin & « ProductID »)
ProductKey = "Clé installée:" & ConvertToKey (DigitalID)
ProductData = ProductName & vbNewLine & ProductID & vbNewLine & ProductKey
'Afficher la boîte à messages si enregistré dans un fichier
Si vbOui = MsgBox (ProductData & vblf & vblf & « Enregistrer dans un fichier ? », vbYesNo + vbQuestion, « Sauvegarder les informations sur la clé Windows ») alors
Enregistrer les données du produit
Si fin

'Convertir les binaires en caractères
ConvertToKey Fonction (Key)
Const KeyOffset = 52
Dim isWin8, Maps, i, j, Current, KeyOutput, Last, keypart1, insert
'Vérifiez si le système d'exploitation est Windows 8
isWin8 = (Key (66) \ 6) Et 1
Clé (66) = (Clé (66) Et & HF7) Ou ((isWin8 Et 2) * 4)
i = 24
Cartes = « BCDFGHJKMPQRTVWXY2346789 »
Do
Courant=0
j = 14
Do
Courant = Courant* 256
Courant = Clé (j + KeyOffset) + Courant
Clé (j + KeyOffset) = (Actuel \ 24)
Courant = Courant Mod 24
j = j-1
Boucle While j >= 0
i = i-1
KeyOutput = Mid (Maps, Current + 1, 1) & KeyOutput
Dernier = Actuel
Boucle pendant que i> = 0

Si (isWin8 = 1) Ensuite,
keypart1 = Mid (KeyOutput, 2, Last)
insert = "N"
KeyOutput = Remplacer (KeyOutput, keypart1, keypart1 & insert, 2, 1, 0)
If Last = 0 Then KeyOutput = insert & KeyOutput
Si fin

ConvertToKey = Mid(KeyOutput, 1, 5) & « - » & Mid(KeyOutput, 6, 5) & « - » & Mid(KeyOutput, 11, 5) & « - » & Mid(KeyOutput, 16, 5) & "-" et milieu (KeyOutput, 21, 5)

Fonction de fin
'Enregistrer les données dans un fichier
Enregistrer Fonction (Data)
Dim fso, fName, txt, objshell, nom d'utilisateur
Définir objshell = CreateObject("wscript.shell")
'Obtenir le nom d'utilisateur actuel
Nom d'utilisateur = objshell.ExpandEnvironmentStrings("%UserName%")
'Créer un fichier texte sur le bureau
fName = « C:\Users\ » & Nom d'utilisateur & « \Desktop\WindowsKeyInfo.txt »
Définissez fso = CreateObject ("Scripting.FileSystemObject")
Définir txt = fso.CreateTextFile(fName)
Données txt.Writeline
txt.Fermer
Fonction de fin

La source.

Cliquez sur « fichier » puis « enregistrer sous ».

Remplacez « Enregistrer sous » par « Tous les fichiers ». Enregistrez le fichier sous le nom de fichier « licensecode.vbs ». Cliquez sur le bouton « Enregistrer ».

Vous verrez maintenant un script à l'emplacement où vous avez enregistré Licensecode.vbs. Double-cliquez dessus pour l'ouvrir. Vous voyez maintenant :

• Nom du produit. C'est le Version Windows que vous avez installé. Veuillez noter que si vous avez mis à jour Windows 10 vers Windows 11, Windows 10 sera souvent toujours là.
• ID produit : il s'agit de l'ID produit généré automatiquement uniquement pour votre ordinateur lors de l'installation. Cet identifiant est basé sur la clé de licence.
• Clé installée : Il s'agit de votre clé de licence. Cela vous permet de réinstaller Windows, de l'activer et bien plus encore.

Vous pouvez éventuellement enregistrer ces informations dans un fichier en cliquant sur « Oui ». De cette façon, vous disposez toujours des informations sur votre clé de licence.

Il s'agit d'un moyen simple et gratuit de rechercher les informations de votre clé de licence. Ne partagez jamais votre clé de licence avec d'autres personnes, tout au plus avec Microsoft à des fins de vérification ou d'assistance.

Code de licence introuvable ? Ensuite, vous pouvez trouver la clé de licence dans le BIOS.

J'espère vous avoir informé de cela. Merci pour la lecture!