> Tous les forums > Forum Base de connaissances PC Astuces
 Retrouver sa clé produit de Windows - Windows toutes versions
Ajouter un message à la discussion
Pages : [1] 2 3 ... Fin
Page 1 sur 3 [Fin]
clement
  Posté le 12/01/2015 @ 14:44 
Aller en bas de la page 
Equipe PC Astuces

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

Publicité
pierolouf
 Posté le 14/01/2015 à 15:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

merci

Fifi55
 Posté le 16/01/2015 à 23:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

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

yves.vaissiere
 Posté le 17/01/2015 à 17:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

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.



Modifié par yves.vaissiere le 17/01/2015 18:03
beorcs
 Posté le 17/01/2015 à 22:55 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Super. merci.

archeboc
 Posté le 19/01/2015 à 19:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

Excellent, merci !

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

Bravo.

arevato
 Posté le 20/01/2015 à 11:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour!

Windows scipt host me dit:erreur:Instruction attendue

Code:800A0400

Source:Erreur de compilation Microsoft VBSript

Painauchoco
 Posté le 20/01/2015 à 13:42 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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

ffankhaus
 Posté le 20/01/2015 à 16:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

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.

Publicité
yves.vaissiere
 Posté le 20/01/2015 à 17:38 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

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.

system32
 Posté le 20/01/2015 à 19:19 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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:



Modifié par system32 le 20/01/2015 19:26
Zorglub 666
 Posté le 21/01/2015 à 10:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvelle astucienne

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.

ELICHA
 Posté le 21/01/2015 à 11:23 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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)

yves.vaissiere
 Posté le 21/01/2015 à 13:20 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

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 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.



Modifié par yves.vaissiere le 21/01/2015 13:27
MARCOPOLO59100
 Posté le 24/01/2015 à 11:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

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.

yves.vaissiere
 Posté le 24/01/2015 à 12:11 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

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)

MARCOPOLO59100
 Posté le 24/01/2015 à 12:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

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.

Publicité
MARCOPOLO59100
 Posté le 24/01/2015 à 12:58 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

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.

MARCOPOLO59100
 Posté le 24/01/2015 à 13:04 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvel astucien

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.

system32
 Posté le 13/02/2015 à 19:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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



Modifié par system32 le 13/02/2015 19:19
Loulanne
 Posté le 18/02/2015 à 02:52 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petite astucienne

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!!!

yves.vaissiere
 Posté le 18/02/2015 à 08:05 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

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

Le Guermeur
 Posté le 18/02/2015 à 08:54 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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

yves.vaissiere
 Posté le 18/02/2015 à 10:12 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Ne pas confondre Product Id avec Product Key.

Chaumine
 Posté le 18/02/2015 à 10:37 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

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

Le Guermeur
 Posté le 18/02/2015 à 10:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

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

Publicité
Pages : [1] 2 3 ... Fin
Page 1 sur 3 [Fin]

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Sujets relatifs
Retrouver l'affichage horizontal - Windows toutes versions
Retrouver la date d'installation de Windows - Windows toutes versions
Retrouver la gestion des Zip - Windows toutes versions
Retrouver les bibliothèques par défaut - Windows toutes versions
 > Tous les forums > Forum Base de connaissances PC Astuces