Lecture Clé de la Base de Registre

Bonjour/Bonsoir,

J'ai beau avoir fais des recherches sur le net mais je n'ai pas trouvé :(

Voici donc mon objectif,

Sous Excel, j'ai un onglet Nommé "Logiciels",

Les colonnes sont présenté comme ceci :
"Nom du Programme";"Version";"Chemin du fichier d'installation";"Exécutable";"Installé"

Le but et que le programme détecte les les logiciels déjà installé mais pour cela je voudrais aller chercher les clés dans la base de registre qui me dira si il est installé ou si il a déjà été installé dans le passé.

Par exemple pour ccleaner vérifier si la clé suivante existe :
[HKEY_LOCAL_MACHINE\SOFTWARE\CCleaner]
Voir récupérer les données de la valeur :
@="C:\\Program Files\\CCleaner" Pour vérifier l'existence du fichier mais Facultatif je dirais.

Si quelqu'un peut m'aider s'il vous plait ?

Je suis sous Excel 2007

Cordialement.
Au2laDeNosReves

bonjour,
tu peux essayer le code si ça te conviens?

Code:

---

1 2 3 4 5 6 7 8

Sub TestCleRegistre() Dim objWSH As Object   Set objWSH = CreateObject("WScript.Shell")     Debug.Print objWSH.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\CCleaner\") End Sub

---

cordialement

edit tu peux aussi regarder dans l'aide du coté de GetSetting je crois

C'est pratiquement parfait :-D merci

Mais un petit hic, il faut que j'arrive a dire que si la clé existe donc je dois récupérer une valeur OUI et contrairement NON si il ne la trouve pas.

Pour le moment j'ai modifier le code comme ceci :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub ScanRegistre() Dim objWSH As Object   Set objWSH = CreateObject("WScript.Shell")   On Error GoTo Err: Debug.Print objWSH.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\CCleaner\")   Err: If Err.Number = -2147024894 Then MsgBox "Clé Introuvable" ElseIf Err.Number = 0 Then MsgBox "Clé Trouvé" Else MsgBox "Erreur Inconnu, demandez de l'aide à votre administrateur ! err." & Err.Number End If Err.Clear   End Sub

---

Auriez vous quelque chose a proposer :-D

re
si j'ai bien compris

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub TestCleRegistre() Dim objWSH As Object Dim Cle As String Set objWSH = CreateObject("WScript.Shell") Cle = "HKEY_LOCAL_MACHINE\SOFTWARE\CCleanere\"   On Error Resume Next MsgBox objWSH.RegRead(Cle) If Err.Number <> 0 Then _ MsgBox "La clé """ & Cle & """ n'existe pas dans la base de registre."   On Error GoTo 0 End Sub

---

Merci beaucoup c'est parfait :-D

Bonjour,

Désolé de ressortir ce vieux sujet...

Avec le dernier script, je peux vérifier si la clé existe sur le poste local où ce script est éxécuté. Mais comment faire pour regarder cette clé sur un PC distant grace à son hostname ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Sub TestCleRegistre() Dim objWSH As Object Dim Cle As String Set objWSH = CreateObject("WScript.Shell") Cle = "HKEY_LOCAL_MACHINE\SOFTWARE\CCleanere\"   On Error Resume Next MsgBox objWSH.RegRead(Cle) If Err.Number <> 0 Then _ MsgBox "La clé """ & Cle & """ n'existe pas dans la base de registre."   On Error GoTo 0 End Sub

---