> Tous les forums > Forum Les mains dans le cambouis
 Clé de licence MS Office
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Philko
  Posté le 27/11/2021 @ 18:32 
Aller en bas de la page 
Petit astucien

Bonsoir,

Suite à l'achat d'un nouveau PC je vais réinstaller la suite Office de Microsoft. Vous devinez la suite ...

Je vais avoir besoin de la fameuse clé de licence. Comment faire pour la retrouver sur l'ancien PC?

Merci et bonne soirée,

Phil,

Publicité
fgondard
 Posté le 27/11/2021 à 18:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Bonjour,

Utilise Produtkey.



Modifié par fgondard le 03/12/2021 18:50
Philko
 Posté le 27/11/2021 à 18:50 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci Heffgé,

Mon antivirus le détecte comme un virus!

Constance
 Posté le 27/11/2021 à 19:31 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Salut,

Du moment que tu le télécharges bien depuis le site officiel ( https://www.nirsoft.net/utils/product_cd_key_viewer.html ) alors tu peux ignorer l'avertissement / l'ajouter en exception dans ton antivirus.

poussebois
 Posté le 27/11/2021 à 19:53 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Bonsoir ,

Si tu n'y arrives vraiment pas, tu peux toujours acheter une clé d'activation (légale) pour moins de un (j'ai bien écrit un !) euro chez Rakuten ici.

@ +

Banzaiii
 Posté le 28/11/2021 à 06:49 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien


Suite à l'achat d'un nouveau PC je vais réinstaller la suite Office de Microsoft. Vous devinez la suite ...

Je vais avoir besoin de la fameuse clé de licence. Comment faire pour la retrouver sur l'ancien PC?

Slt

Tu n'as plus la clé qui t'a servi à la l’installation sur l'ancien PC ?

PS : ProductKey ne voit pas ma licence Office 2019 achetée chez Rakuten et pourtant bien activée (il voit bien mes ex licences 2003 et 2016)



Modifié par Banzaiii le 28/11/2021 07:14
Philko
 Posté le 28/11/2021 à 10:47 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour,

Et merci à toutes et tous.

Sinon, en cherchant un peu sur Internet, j'ai trouvé ceci:

  • Ouvrir l'Invite de commande (Windows + R) puis taper "cmd" et OK
  • Saisir ce qui suit: wmic path softwarelicensingservice get OA3xOriginalProductKey
  • La clé s'affiche!

Bon dimanche,

fgondard
 Posté le 28/11/2021 à 11:17 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

ProductKey ne voit pas ma licence Office 2019

Il n'a sans doute pas suivi l'évolution du mode de stockage du n° de licence.

Pour Office 2000 en pouvait utiliser le script qu'on trouve un peu partout permettant de décryper le n° de licence de Windows quand il figurait encore dans le registre, en le faisant pointer sur la bonne clé. Je n'ai pas réussi à l'adapter pour Office 2003.

Banzaiii
 Posté le 28/11/2021 à 11:34 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Philko a écrit :
  • Ouvrir l'Invite de commande (Windows + R) puis taper "cmd" et OK
  • Saisir ce qui suit: wmic path softwarelicensingservice get OA3xOriginalProductKey
  • La clé s'affiche!

C'est la clé de Windows (si PC OEM) , pas d'Office

https://lecrabeinfo.net/retrouver-sa-cle-de-produit-windows.html

En outre, ne fonctionne pas, pour Windows, si licence numérique





Modifié par Banzaiii le 28/11/2021 16:55
fgondard
 Posté le 28/11/2021 à 12:44 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

D'après cet article, que ce soit avec Produkey ou avec EaseUS, ne va pas jusqu'à Office 2019. Mais est-il à jour ? Néanamoins on y trouve le script pour Office 2013. Il fonctionne aussi pour Office 2016 et 2019 (voir ici).



Modifié par fgondard le 03/12/2021 18:51
Banzaiii
 Posté le 28/11/2021 à 16:52 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Personnellement, j'ai ma clé Office 2019 bien au chaud, en clair, dans mes sauvegardes d'où ma première question à notre ami qui n'a pas daigné y répondre

Bon courage à lui

Merci pour les liens µsoft

Philko
 Posté le 29/11/2021 à 02:28 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonjour Banzaiii,

Désolé j'avais pas fait gaffe, je suis passé à côté de ton post. Non, je n'ai plus ma clé c'est bien pour ca que je voudrais la récupérer pour réinstallation.

Et merci pour l'info concernant la clé OEM . Je pensais avoir retrouvé là ma clé Office.

Donc je n'ai plus qu'à me fier à Productkey malgré le signalement de mon antivirus...

Bonne journée,

Banzaiii
 Posté le 29/11/2021 à 08:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

Aucun problème de virus avec ProductKey sauf qu'il ne fonctionne pas avec ma version 2019

devant derriere
 Posté le 29/11/2021 à 09:48 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
fgondard a écrit :

ProductKey ne voit pas ma licence Office 2019

Il n'a sans doute pas suivi l'évolution du mode de stockage du n° de licence.

Pour Office 2000 en pouvait utiliser le script qu'on trouve un peu partout permettant de décryper le n° de licence de Windows quand il figurait encore dans le registre, en le faisant pointer sur la bonne clé. Je n'ai pas réussi à l'adapter pour Office 2003.

Bonjour

voir ce lien:

*https://fr.scribd.com/document/354044508/Serial-Number-Microsoft-Office-2003

fgondard
 Posté le 29/11/2021 à 16:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

voir ce lien:

Aucun rapport. Je parle du scprit d'affichage en clair du numéro de licence figurant sous forme cryptée dans le registre.

Le script d'origine pour Windows (XP ou 7) :

' ##############################################################
' # #
' # VBScript to find the DigitalProductID for your #
' # Microsoft windows Installation and decode it to #
' # retrieve your windows Product Key #
' # #
' # ----------------------------------------------- #
' # #
' # Created by: Parabellum #
' # #
' ##############################################################
'
' <--------------- Open Registry Key and populate binary data into an array -------------------------->
'
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
' <--------------- Create an array to hold the valid characters for a microsoft Product Key -------------------------->
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")

' <--------------- The clever bit !!! (Decrypt the base24 encoded binary data)-------------------------->
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
' <------- add the "-" between the groups of 5 Char -------->
If i Mod 5 = 0 And i <> 0 Then strProductKey = "-" & strProductKey
Next
strFinalKey = strProductKey
'
' <---------- This part of the script displays operating system Information and the license Key --------->
'
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

Le même pour Office 2003 et qui maintenant fonctionne .

' ##############################################################
' # #
' # VBScript to find the DigitalProductID for your #
' # Microsoft windows Installation and decode it to #
' # retrieve your windows Product Key #
' # #
' # ----------------------------------------------- #
' # #
' # Created by: Parabellum #
' # Modified by Heffgé #
' ##############################################################
'
' <--------------- Open Registry Key and populate binary data into an array -------------------------->
'
const HKEY_LOCAL_MACHINE = &H80000002
strKeyPath = "SOFTWARE\Wow6432Node\Microsoft\Office\11.0\Registration\{9011040C-6000-11D3-8CFE-0150048383C9}"
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
' <--------------- Create an array to hold the valid characters for a microsoft Product Key -------------------------->
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")

' <--------------- The clever bit !!! (Decrypt the base24 encoded binary data)-------------------------->
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
' <------- add the "-" between the groups of 5 Char -------->
If i Mod 5 = 0 And i <> 0 Then strProductKey = "-" & strProductKey
Next
strFinalKey = strProductKey
'
' <---------- This part of the script displays operating system Information and the license Key --------->
'
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 = strPopupMsg & "Your Offfice 2003 Product Key is:" & vbNewLine & vbNewLine & strFinalKey
strPopupTitle = "Microsoft Office License Information"
wshShell.Popup strPopupMsg,,strPopupTitle,vbCancelOnly+vbinformation
WScript.Quit

En fait il suffit de rechercher l'emplacement de Registration\DigitalProductId dans le registre et de modifier le contenu de la variable strKeyPath pour l'adapter à d'autres produits Microsoft (en rouge au début du script). L'algorithme de décryptage devrait être le même pour tous.

Ici, à la fin, j'ai aussi viré les messages sans objet et modifé les libellés.



Modifié par fgondard le 29/11/2021 16:36
Philko
 Posté le 03/12/2021 à 16:43 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir,

J'ai utilisé ProductKey, non sans mal car Chrome et Edge bloquaient le téléchargement, mais il n'a pas affiché la clé Office 2019! Il y avait celle de MS Explorer, OEM Windows, mais pas celle d'office!

Y aurait-il un autre moyen de récupérer cette clé? Elle doit bien être enregistrée quelque part cette clé!

Bonne soirée,

fgondard
 Posté le 03/12/2021 à 19:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Il ne faut pas confondre Produkey de chez Nirsoft avec d'autre logiciels au nom y ressemblant (comme Product Key Explorer par exemple) et il faut prendre la version nue (format zip).

Mais Banzaiii l'avait signalé il ne sait pas trouver le numéro de licence d'Office 2019.

Ouvre regedit et fait une recherche sur DigitalProductId dans HKLM. Si tu découvres l'endroit où elle est stokée dans le registre, donne le chemin d'accès complet et je modifierai le script permettant de l'afficher en clair.

Pour Office 2003 ce chemin était HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\11.0\Registration\{9011040C-6000-11D3-8CFE-0150048383C9}.

Super_GEGE
 Posté le 04/12/2021 à 21:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Maître astucien

tu n'as pas la clé sur le site de Cdiscount dans les messages ou dans la poubelle de ta messagerie.

Tu peux faire une recherche par mot clé ?

Normalement, la clé est pour un seul poste. Sk tu as changé d'ordinateur la clé a des chances de ne pas fonctionner.

Au passage, j'ai remarqué qu'il fallait rentrer dans un dossier pour lancer l'executable de la version 64 bits.

Si tu la lances à partir de l'exécutable à la racine des dossiers, c'est la version 32 bits qui s'installe.

Ça a été mon cas pour 2 versions différentes d'office installes sur 3 ordinateurs.

Bien sûr, ce n'est pas forcément ton cas.

fgondard
 Posté le 05/12/2021 à 17:31 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Grand Maître astucien

Je viens de tomber sur cette page. S'il n'y est pas raconté trop de bêtises le chemin d'accès à DigitalProductId y est donné pour Office 2019.

Dans le deuxième script il suffit de remplacer

strKeyPath = "SOFTWARE\Wow6432Node\Microsoft\Office\11.0\Registration\{9011040C-6000-11D3-8CFE-0150048383C9}"

par

strKeyPath = "SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Registration\{90150000-0011-0000-0000-0000000FF1CE}"

Verifier que je n'ai pas fait d'erreur de recopie.

Ci dessous une version plus simple du script :

'----------------------------------------------------------------------------------------------------------------------------
'Script affichage en clair des n° de licence Microsoft
'
'Le contenu de msg et de path doit être adapté au produit
'
'Pour Windows :
' msg = "N° de licence Windows" & vbcrlf é vbcrlf
' path = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\DigitalProductId"
'
'Pour Office 2003
' msg = "N° de licence Office 2003" & vbcrlf é vbcrlf
' path = "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\11.0\Registration\{9011040C-6000-11D3-8CFE-0150048383C9}\DigitalProductId"
'
'Pour Office 2019
' msg = "N° de licence Office 2019" & vbcrlf é vbcrlf
' path = "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Registration\{90150000-0011-0000-0000-0000000FF1CE}\DigitalProductId"
'
'------------------------------------------------------------------------------------------------------------------------------
'
'------------------
'Instanciation obet
'------------------
Set WshShell = CreateObject("WScript.Shell")
'
'----------------------
'Initilisation varables
'----------------------
msg = "N° de licence Office 2003" & vbcrlf & vbcrlf
path = "HKLM\SOFTWARE\Wow6432Node\Microsoft\Office\11.0\Registration\{9011040C-6000-11D3-8CFE-0150048383C9}\DigitalProductId"
MsgBox msg & ConvertToKey(WshShell.RegRead(path))

'-------------------
'Fonction décryptage
'-------------------
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

Publicité
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
49,99 €SSD Crucial MX500 500 Go à 49,99 €
65,99 € -24%

Amazon propose actuellement le SSD Crucial MX500 500 Go à 49,99 € livré gratuitement. On le trouve ailleurs à partir de 65,99 €. Ce SSD salué par la critique par son rapport qualité prix imbattable offre des débits de 560 Mo/s en lecture et 510 Mo/s en écriture. Il est garanti 5 ans. 


Voir l'offre
25,18 €Carte mémoire Samsung 256 Go MicroSDXC Evo Select U3 (130 Mo/s) à 25,18 € livrée
40 € -37%

Amazon Allemagne fait une promotion sur la carte mémoire Samsung 256 Go MicroSDXC Evo Select U3 qui passe à 31,25 € (avec la TVA ajustée). Comptez 4,52 € pour la livraison en France soit un total de 25,18 € livrée

Une bonne affaire pour cette carte que l'on trouve ailleurs à partir de 40 € et qui offre des vitesses de 130 Mo/s en lecture et 110 Mo/s en écriture.  Elle est idéale pour les téléphones, caméras et appareils photo 4K. Elle est étanche, anti-choc et résiste aux rayons X et aux champs magnétiques. Elle est garantie 10 ans.


Voir l'offre
11,99 €Support de moniteur Bontec à 11,99 €
29,99 € -60%

Amazon fait une vente flash sur le support de moniteur qui passe à 11,99 € au lieu de 29,99 € grâce à un coupon à activer sur la page du produit. Ce réhausseur d'écran (142 mm) peut supporter jusqu'à 30 kg. Vous pouvez également l'utiliser pour rehausser une imprimante, un ordinateur portable, etc.

Avec une étagère, une fente pour smartphone, un concentrateur pour la gestion des câbles et un emplacement pour glisser votre clavier en dessous.


Voir l'offre
10,55 €Calculatrice Casio FX92+ spéciale Collège à 10,55 € (via ODR et tickets Leclerc)
16,90 € -38%

Leclerc fait une promotion sur la calculatrice Casio FX92+ spéciale Collège qui passe à 16,55 €. Or le marchant reverse 3 € en tickets Leclerc et Casio rembourse 3 € pour l'achat de cette calculatrice qui vous reviendra au final à 10,55 €. Imbattable ! 


Voir l'offre

Sujets relatifs
Clé de licence
Clé de licence
Comment retrouver la cle de licence W8?
Comment retrouver la clé de licence?
quelle est la clé de licence à rentrer ?
clé activation microsoft office réutilisable après reinstallation de w7 pro
recuperer cle de licence xp sur disque dur EXTERNE
L'anti - virus Kaspersky +sa clé de licence
Impossible de démarrer sur clé USB
mémoire de ma clé USB disparue !?
Plus de sujets relatifs à Clé de licence MS Office
 > Tous les forums > Forum Les mains dans le cambouis