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

Comment vérifier l'existence d'une cle de registre - VB/VBA/VBS - Programmation

Marsh Posté le 12-06-2006 à 10:01:59    

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 ?

Reply

Marsh Posté le 12-06-2006 à 10:01:59   

Reply

Marsh Posté le 12-06-2006 à 16:35:46    

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 »

Reply

Marsh Posté le 13-06-2006 à 11:41:52    


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

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed