[Résolu] CleProductKey.exe (Pierre13)

[Dylav]

J'ai fait tourner le petit outil de Falkra, puis ton script a fonctionné...

Il me rend bien la clef produit de Microsoft Office Standard Edition 2003

Question : sais-tu pourquoi ton outil CleProductKey.exe ne le fait pas ?

 

 

[Pierre13]

Ok, c'est donc que ta clé est correcte

 

Comme tu as, d'après les captures, plusieurs versions d'Office, est ce que mon outil t'a donné les autres ProductKeys ?

Je parle de celui des Office et celui de Windows 7.

 

Si tu n'as rien de tout cela, va falloir que je reprenne mon code.

Mais pour ça, faut que j'en sache plus sur la source du problème.

 

Tu as re essayé avec mon outil après cette réparation ?

 

@+

Modifié le 12 janvier 2018 par Pierre13

[Dylav]

À ma connaissance, je n'ai qu'un seul Office, la version 2003 ?

Panneau de configuration > Programmes et Fonctionnalités m'indique ceci.

Ton outil CleProductKey.exe ne me rend que la clef de Windows.

 

Nota : j'ai trouvé un jour le script VBS ci-dessous, qui rend les clefs de Windows, d'Internet Explorer et de Office.

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

[Pierre13]

Ok...Ce script est très différent de celui que je t'ai donné surtout au niveau de la clé de registre.

[Dylav]

You're welcome !

[Pierre13]

Bizarre ce script...

Je l'ai essayé et il me donne bien un Productkey, mais il n'a rien à voir avec les miens..???

 

De plus, tu as dû faire plusieurs nouvelles installations d'Office au fur et à mesure de leurs sorties..

On peut le voir sur cette capture:

 

 

On y voit les clés de Office 11.0, 12.0, 15.0 et d'autres plus bas.

Ce doit être des restes d'anciennes installations je suppose.

 

On verra ça à tête reposée...

 

Bonne nuit.

[Dylav]

Bonjour Pierre,

 

Non, je n'ai installé Office 2003 qu'une seule fois, peu après l'achat de mon PC début 2014. En revanche, Windows Update m'a longtemps proposé de nombreuses mises à jour concernant Office 2007 et Office 2010 (que je n'ai jamais possédés), ainsi que le module de compatibilité pour les .DOCX.

 

Voici ce que donne la dernière version de ton module CleProductKey (daté de 08:41 aujourd'hui).

ProductKey (Pierre13)
============================
ProductKey Produits Windows
Attention ! Ne pas publier !
============================
Microsoft Windows 7 Professionnel  64 bits Service Pack 1
ProductKey  : *****-*****-*****-*****-*****
ProductID   : *****-OEM-*******-*****
Office 2003 : *****-*****-*****-*****-*****

Ce fichier est sur le bureau : C:\Users\DRJMLAPS\Desktop\Notes.txt

Ces trois clefs sont bien identiques à celles rendues par le script Clef_Windows.vbs listé ci-dessus.

 

 

 

 

 

[Pierre13]

Bonjour Dylav,

 

Ok, alors c'est parfait

 

Le souci venait du fait des différentes versions de Windows.

Il a fallu que j'ajoute une routine supplémentaire pour prendre en compte certaines spécificités de Win 7 X64

 

Le principal est que c'est bon maintenant.

Les liens sont mis à jour dans le sujet principal.

 

Merci pour ton aide et ta patience pour ce problème

 

Bon Week end..

 

@++

[Dylav]

C'est moi qui te remercie !

Je marque le sujet résolu...