Aller au contenu
  • Pas encore inscrit ?

    Pourquoi ne pas vous inscrire ? C'est simple, rapide et gratuit.
    Pour en savoir plus, lisez Les avantages de l'inscription... et la Charte de Zébulon.
    De plus, les messages que vous postez en tant qu'invité restent invisibles tant qu'un modérateur ne les a pas validés. Inscrivez-vous, ce sera un gain de temps pour tout le monde, vous, les helpeurs et les modérateurs ! :wink:

[Résolu] CleProductKey.exe (Pierre13)


Dylav

Messages recommandés

  • Modérateurs

Bonjour Pierre,

Mon antivirus Avira Free antivirus a renâclé, m'obligeant à extraire ton module de sa quarantaine et à le mettre en liste blanche. Normal, j'étais prévenu. Mais quelques remarques, néanmoins,

  • Il faut le lancer en tant qu'administrateur (tu parles de double-clic).
  • il ne m'a pas rendu de clef d'installation pour Microsoft Office 2003 (j'ai vérifié, Office est bien installé sur mon PC) icon_Doute.gif

N.B.: je suis sous W7 Pro SP1 x64.

Lien vers le commentaire
Partager sur d’autres sites

Re,

 

Bon, alors pour le double clic, normal j'étais sous une session administrateur...doh.gif

Donc, il faut bien le lancer avec le clic droit ...Exécuter en tant qu'admin...

 

Pour ce qui est de Office 2003, je l'ai aussi et j'ai bien la clé trouvée.

 

Faudrait vérifier dans le registre si dans la clé

 

HKLM\\SOFTWARE\Wow6432Node\Microsoft\Office\11.0\{9011040C-6000-11D3-8CFE-0150048383C9} (pour un 64 bits)

 

Ou

 

HKLM\\SOFTWARE\Microsoft\Office\11.0\{9011040C-6000-11D3-8CFE-0150048383C9} (pour un 32 bits)

 

Tu as bien quelque chose qui s'appelle DigitalProductId

 

Ne poste surtout pas la valeur...juste me dire si une valeur de suite de chiffres existe.

 

Si ta version d'Office a été enregistrée en 32 bits, alors tu n'auras pas de résultat à cause que j'ai oublié cette éventualité dans le codage.

Je l'ai rajoutée..

Je vais en profiter pour faire de même avec les autres versions.

 

@+

Modifié par Pierre13
Lien vers le commentaire
Partager sur d’autres sites

  • Modérateurs

J'ai re-téléchargé ton module (qu'Avira n'a à nouveau pas apprécié), qui ne rend toujours pas les clefs de Office.

À noter que c'est sûrement une version 32bit que j'ai installée, mais je ne saurais le prouver.

Quant aux clefs de registre, voici ce que j'ai respectivement sur les deux chemins que tu indiques.

180112060338511042.jpg180112060338566534.jpg

Lien vers le commentaire
Partager sur d’autres sites

Normal, la modif n'a pas encore été faite..

Pour le registre, c'est pas la bonne clé..la bonne clé à regarder est celle ci:

 

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

 

ou pour Office 15, celle ci:

 

HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\15.0\Registration\{9011040C-6000-11D3-8CFE-0150048383C9}

 

Voir ensuite si une valeur DigitalProductId est bien présente.

 

@+

Lien vers le commentaire
Partager sur d’autres sites

Ah...Voilà la raison du dysfonctionnement...

De toutes façon, mon code ne tient pas compte du truc entre les {...} , ce qui compte, c'est qu'il est bien pris en compte.

Donc, si le souci ne se produit pas chez un autre possesseur d'Office 2003, c'est que tu dois avoir un souci avec le contenu de la valeur du DigitalID

Le script ci dessous va te dire si c'est le cas ou pas..

Public Function sGetOffCDKey()

Dim bDigitalProductID
Dim bProductKey()
Dim bKeyChars(24)
Dim ilByte
Dim nCur
Dim sCDKey
Dim ilKeyByte
Dim ilBit

ReDim Preserve bProductKey(14)

Set objShell = CreateObject("WScript.Shell")

bDigitalProductID = objShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Office\11.0\Registration\{9112040C-6000-11D3-8CFE-0150048383C9}\DigitalProductId")

Set objShell = Nothing

For ilByte = 52 To 66
bProductKey(ilByte - 52) = bDigitalProductID(ilByte)
Next

bKeyChars(0) = Asc("B")
bKeyChars(1) = Asc("C")
bKeyChars(2) = Asc("D")
bKeyChars(3) = Asc("F")
bKeyChars(4) = Asc("G")
bKeyChars(5) = Asc("H")
bKeyChars(6) = Asc("J")
bKeyChars(7) = Asc("K")
bKeyChars(8 ) = Asc("M")
bKeyChars(9) = Asc("P")
bKeyChars(10) = Asc("Q")
bKeyChars(11) = Asc("R")
bKeyChars(12) = Asc("T")
bKeyChars(13) = Asc("V")
bKeyChars(14) = Asc("W")
bKeyChars(15) = Asc("X")
bKeyChars(16) = Asc("Y")
bKeyChars(17) = Asc("2")
bKeyChars(18 ) = Asc("3")
bKeyChars(19) = Asc("4")
bKeyChars(20) = Asc("6")
bKeyChars(21) = Asc("7")
bKeyChars(22) = Asc("8")
bKeyChars(23) = Asc("9")

For ilByte = 24 To 0 Step -1

nCur = 0

For ilKeyByte = 14 To 0 Step -1
'Step through each byte in the Product Key
nCur = nCur * 256 Xor bProductKey(ilKeyByte)
bProductKey(ilKeyByte) = Int(nCur / 24)
nCur = nCur Mod 24
Next

sCDKey = Chr(bKeyChars(nCur)) & sCDKey
If ilByte Mod 5 = 0 And ilByte <> 0 Then sCDKey = "-" & sCDKey
Next

sGetOffCDKey = sCDKey

End Function

Public Function Question()

wscript.echo sGetOffCDKey

End Function

call Question

Ouvrir le Bloc Notes (notepad.exe)

Copier/Coller le code

Enregistrer le fichier avec l'option Tous les fichiers et le nom que tu veux, mais avec l'extension .vbs

 

Double cliques dessus.

Tu devrais voir apparaître un message qui contient la clé de ton Office 11.

 

C'est Ok ou pas ?

Modifié par Pierre13
Lien vers le commentaire
Partager sur d’autres sites

Ha...Normalement, ça devrait se faire tout seul...

C'est le fichier cscript.exe ou Wscript.exe qui se trouve dans Windows\System32

Possible qu'il ait un souci avec les associations de fichier.

Voir sur cette page comment faire pour exécuter un fichier vbs en tant qu'admin.

 

Sinon, tu as cet outil de Falkra qui va réparer les associations de fichier vbs pour Win 7

C'est un fichier reg à fusionner avec un double clic dessus.

Si besoin, redémarrer le PC et retenter avec le fichier vbs

 

Source Libellules

Modifié par Pierre13
Lien vers le commentaire
Partager sur d’autres sites

Rejoindre la conversation

Vous publiez en tant qu’invité. Si vous avez un compte, connectez-vous maintenant pour publier avec votre compte.
Remarque : votre message nécessitera l’approbation d’un modérateur avant de pouvoir être visible.

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

  • En ligne récemment   0 membre est en ligne

    • Aucun utilisateur enregistré regarde cette page.
×
×
  • Créer...