[vbscript] vérifier l'existence d'une clé de registre

[xinu1.1]

Voila j'essaye de désinstaller l'antivirus etrust sur tout les postes via un script en vbscript. Suivant la clé de registre sur le poste en relation avec etrust je dois utiliser tel ou tel autre maniére pour le désisnstallé.
Mon gros problème c'est que j'essaye de me basser sur l'existence de la clé de registre pour éxecuter l'action. Hors je n'arrive pas à voir si la clé est présente ou pas.

J'ai mit en commentaire pour le moment les actions à effectuer.
Pouvez vous m'aider.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
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

[jem27]

moi pour lire une clé de registre je fais ca

Code :

1
2
3
4
5
On Error Resume Next
param=WshShell.RegRead ("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{6A120E99-3123-4CB2-9A02-D24784F4BC8C}\")
On Error Goto 0
wscript.echo param

question au passage est ce que la clé 6A120E99-3123-4CB2-9A02-D24784F4BC8C est la même sur tous les postes sinon tu devra lister avec une boucle for chaque clé
voila la petite aide