Retrouver sa clé produit de Windows - Windows toutes versions

Vous n'arrivez pas à mettre la main sur votre clé de Windows ? Pourtant, si vous devez le réinstaller suite à des problèmes, vous en avez absolument besoin. Grâce à un simple script et sans installer de logiciel, voici comment récupérer la clé produit de votre Windows.

Lien vers l'article : http://www.pcastuces.com/pratique/astuces/4279.htm

merci

Bonjour,

Ce script vbs et le petit logiciel Windows 8 Product Key Viewer me donnent 2 clés différentes ... Où est l'erreur

Bonjour,

je ne sais pas ; mais pour 8 (bien que le serial soit inutile pour réinstallation sur PC OEM vendu sous 8) on évoque plutôt la commande :

powershell "(Get-WmiObject -query ‘select * from SoftwareLicensingService’).OA3xOriginalProductKey"

(peut-être en tant qu'admin)

Même résultat chez moi que ton soft, le vbs en donne un différent.

Le vbs n'est plus bon sous 8, à mon avis.

Super. merci.

Excellent, merci !

Vérifié avec "Produkey", qui donne bien le même résultat !

Bravo.

Bonjour!

Windows scipt host me dit:erreur:Instruction attendue

Code:800A0400

Source:Erreur de compilation Microsoft VBSript

Impec........en cas de besoin.......au cas ou

Bonjour

Moi ça marche pas. Il m'affiche le texte que j'ai copié dans le Bloc-Notes. Je suis sous W7.

Merci si quelqu'un a une idée.

Tu n'as pas fait un vbs, faute d'avoir choisi comme indiqué le filtre "Tous les fichiers (*.*)".

Voici l'icône par défaut d'un vbs :

Au besoin , configure W à afficher les extensions de nom.

Sur Windows XP, on ne peut pas directement enregistrer en .VBS. Tu colle donc le script dans un fichier texte, tu l'enregistre (en .TXT ) et tu renommes simplement l'extension en .VBS. (Fonctionne pour Windows toutes versions)

Il existe un autre script qui donne quelques autres infos:

' ##############################################################

' # #

' # VBScript to find the DigitalProductID for your #

' # Microsoft windows Installation and decode it to #

' # retrieve your windows Product Key #

' # #

' # ----------------------------------------------- #

' # #

' # Created by: Parabellum #

' # #

' ##############################################################

'

'

'

const HKEY_LOCAL_MACHINE = &H80000002

strKeyPath = "SOFTWARE\Microsoft\Windows NT\CurrentVersion"

strValueName = "DigitalProductId"

strComputer = "."

dim iValues()

Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _

strComputer & "\root\default:StdRegProv")

oReg.GetBinaryValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,iValues

Dim arrDPID

arrDPID = Array()

For i = 52 to 66

ReDim Preserve arrDPID( UBound(arrDPID) + 1 )

arrDPID( UBound(arrDPID) ) = iValues(i)

Next

'

Dim arrChars

arrChars = Array("B","C","D","F","G","H","J","K","M","P","Q","R","T","V","W","X","Y","2","3","4","6","7","8","9")

'

For i = 24 To 0 Step -1

k = 0

For j = 14 To 0 Step -1

k = k * 256 Xor arrDPID(j)

arrDPID(j) = Int(k / 24)

k = k Mod 24

Next

strProductKey = arrChars(k) & strProductKey

'

If i Mod 5 = 0 And i <> 0 Then strProductKey = "-" & strProductKey

Next

strFinalKey = strProductKey

'

'

'

strComputer = "."

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colOperatingSystems = objWMIService.ExecQuery _

("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems

strOS = objOperatingSystem.Caption

strBuild = objOperatingSystem.BuildNumber

strSerial = objOperatingSystem.SerialNumber

strRegistered = objOperatingSystem.RegisteredUser

Next

Set wshShell=CreateObject("wscript.shell")

strPopupMsg = strOS & vbNewLine & vbNewLine

strPopupMsg = strPopupMsg & "Build Number: " & strBuild & vbNewLine

strPopupMsg = strPopupMsg & "PID: " & strSerial & vbNewLine & vbNewLine

strPopupMsg = strPopupMsg & "Registered to: " & strRegistered & vbNewLine & vbNewLine & vbNewLine

strPopupMsg = strPopupMsg & "Your Windows Product Key is:" & vbNewLine & vbNewLine & strFinalKey

strPopupTitle = "Microsoft Windows License Information"

wshShell.Popup strPopupMsg,,strPopupTitle,vbCancelOnly+vbinformation

WScript.Quit

Voila ce que ça donne:

Fonctionne parfaitement sous Windows 7 64 bits (bien nommer le fichier texte avec l'extension .vbs), je retrouve bien ma clé de licence.

À noter que la fonction ConvertToKey du script appliquée à la valeur HKLM\SOFTWARE\Microsoft\Internet Explorer\Registration\DigitalProductId plutôt qu'à la valeur HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductID donne le même résultat.

Mais Advanced Tokens Manager est beaucoup plus puissant, puisqu'il permet de sauvegarder l'activation et de la restaurer, en cas de reformatage et de réinstallation par exemple.

Bonjour,

Tout cela me parait bien compliqué! Il y a longtemps que je me suis aperçu que la clé trouvée par logiciel ne correspond pas à celle marquées sur l'étiquette. Avec le petit logiciel SIW, outre les clés de Windows, et des autres programmes installés tels Office, on a énormément de renseignements sur l'appareil. Alors autant utiliser celui-là (entre autres)

Quand il y a étiquette, il faut utiliser l'étiquette !

A la limite on pourrait remplacer le serial d'un système préinstallé par celui sur l'étiquette, par pure satisfaction intellectuelle ;
mais à remplacer celui d'un système réinstallé avec celui récupéré par n'importe quel script ou logiciel à partir du préinstallé, eh bien on se fait jeter comme un malpropre !

Donc :

1°) lire l'étiquette et la recopier, tout simplement ;
2°) utiliser un script ou logiciel, si l'étiquette est absente ; entendu que ce qui est récupéré ne permettra pas une réinstall/activation, si c'est depuis un préinstallé.

Bonjour, l'astuce indique un script (jusqu'à 7) ; pas un logiciel. (l'un et autre étant inutile envers un PC vendu sous 8, il n'y a besoin de rien)
On peut préférer ...

La "complication" consiste à choisir ou changer l'extension du nom d'un fichier, par défaut invisible ;
c'est pas toujours évident de connaître ses billes, mais ça peut rendre service tôt ou tard.

Pourquoi ça ne marche pas, je suis sous Windows 8 et voila le rapport d'erreur :

Script: C:\Users\MARC\Desktop\CléWindows/vbs

Ligne: 20

Caract. : 15

Erreur: ')' attendu

Code: 800A03EE

Source: Erreur de compilation Microsoft VBScript

qui pourrait m'aider sachant que je suis aller contrôler qu'il n'y avait pas d'erreur de frappe sur le caractère 15 de la ligne 20.

Procède par copier-coller, et là tu seras sûr qu'il n'y a pas d'erreur de frappe.

(Ressaie si tu veux avec :

WScript.Echo GetKey(CreateObject("WScript.Shell").RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"))

Function GetKey(rpk)

i=28

szPossibleChars="BCDFGHJKMPQRTVWXY2346789"

Do

dwAccumulator=0:j=14

Do

dwAccumulator=dwAccumulator*256

dwAccumulator=dwAccumulator+rpk(j+52)

rpk(j+52)=(dwAccumulator\24)and 255

dwAccumulator=dwAccumulator Mod 24

j=j-1

Loop While j>=0

i=i-1:szProductKey=mid(szPossibleChars,dwAccumulator+1,1)&szProductKey

if(((29-i)Mod 6)=0)and(i<>-1)then

i=i-1:szProductKey="-"&szProductKey

End If

Loop While i>=0

GetKey=szProductKey

End Function

Mais ne perds pas de vue que ça ne renvoie pas la bonne clé de produit, dont au reste on n'a pas besoin si la machine est vendue sous 8)

Merci, je vais essayer ton script, en fait je me rends compte que se n'est pas Windows 8 mais 8.1 (nouvelle machine depuis 3 semaines) et qu'il n'est livré avec aucun CD'S donc pas de clé, il faut créer sur une clé USB, une sorte de sauvegarde a garder précieusement en cas de réinstallation donc cette fameuse clé doit être contenue dans la sauvegarde.

Encore un grand merci, je viens d'essayer ton script par copier-coller et j'ai obtenu une clé, maintenant d'après les commentaires précédents que j'ai pu lire est-ce la bonne, mystère et boule de gomme.

Pour approfondir la chose et par curiosité, j'ai repris le script de PC Astuces que j'avais essayé en 1er (qui ne marchait pas), cette fois-ci par copier-coller et miracle, j'obtiens la même clé qu'avec le tiens.

Tu avais recopié signe par signe ?!?! Sans faire de copié collé ?!

Bonsoir, pour moi le truc fonctionne mais ça ne me donne pas la même clé que j'ai sur mon cd Windows 8.1.

Où est le problème!!!

Comme dit plus haut, le script ne donne pas un bon numéro sous 8.

Le script me donne le même numéro qu'avec Aida Extrême Édition....mais le Diag de ZHP m'indique une clé partielle qui n'a rien avoir avec le script

Ne pas confondre Product Id avec Product Key.

Bonjour,

Le n° de clé Windows fait partie des nombreuses informations données par le petit logiciel Speecy.

Voir http://www.pcastuces.com/logitheque/speccy.htm

yves.vaissiere a écrit :

Ne pas confondre Product Id avec Product Key.

bien sûr,pas de confusion....

Ma product key est différente selon les moyens utilisés:

Le Script/ AIDA/Speccy donnent la même clé

SIW donne une clé différente conforme à la clé relevée par ZHP Diag(partial key apparaisant sur les rapports) Je pense que cette dernière est la bonne