Comment vérifier l'existence d'une cle de registre

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Comment vérifier l'existence d'une cle de registre

xinu911

Bonjour

Dans mon script je cherche à m'appuyer sur une clé de registre pour déclencher une action.
j'utilise la fonction WshShell.RegRead ,Mon probléme est que si cette clé n'existe pas dans le registre je me tape un message d'erreur.

Comment faire un truc simple pour verifier uniquement si la cle existe ?

Publicité

tegu

VBA permet de gérer les erreurs, donc de faire un traitement spécifique à l'irruption d'une erreur particulière.
Cherche du côté de « On Error Goto » et « Resume Next »

xinu911

Arf oui j'ai essaye de faire un truc comme ça mais ça ne fonctionne pas. J e deviens à cour d'idée
Pouvez vous m'aider ?
J'ai mit pour le moment les actions à effectuer en commentaires

Code :

On Error Resume Next
Set WshShell = Wscript.CreateObject("Wscript.shell" )
WshShell.RegRead ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{6A120E99-3123-4CB2-9A02-D24784F4BC8C}\" )
if err.number <> 0 then
else
MsgBox " 1 L'antivirus Etrust est en cours de désinstallation, l'ordinateur va redémarrer" , 0, "Service informatique tel 205 ou 278"
'Set objshell = CreateObject("Wscript.Shell" )
'objShell.run "MsiExec.exe /quiet /forcerestart /X{6A120E99-3123-4CB2-9A02-D24784F4BC8C}"
End if
WshShell.RegRead ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\etrust Antivirus\" )
if err.number <> 0 then
else
MsgBox " 2 L'antivirus Etrust est en cours de désinstallation, l'ordinateur va redémarrer" , 0, "Service informatique tel 205 ou 278"
'Set objshell = CreateObject("Wscript.Shell" )
' Uninst = "C:\Program Files\CA\etrust Antivirus\Uninst.isu"
' InoSetup = "C:\Program Files\CA\etrust Antivirus\InoSetup.dll"
'objShell.run ("C:\WINDOWS\IsUn040c.exe -f "& Uninst &" -c "& InoSetup &"" )
End if

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Comment vérifier l'existence d'une cle de registre

Sujets relatifs
Appel d'une clé du registre	comment vérifier si une feuille du classeur est déjà existante
Enregistré une dll dans la base de registre	Probleme tout simple : existence d'une valeur
[Batch]verifier les fichiers et copier les modifiés uniquement??	Verifier l'existence d'une valeur
Delphi et registre EAX	Comment lire dans la base de registre dans un .bat ?
verifier le format d'heure d'un textbox
Plus de sujets relatifs à : Comment vérifier l'existence d'une cle de registre

Page générée en 0.051 secondes