IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Autres Logiciels Discussion :

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


Sujet :

Autres Logiciels

  1. #1
    Futur Membre du Club
    Inscrit en
    Février 2005
    Messages
    15
    Détails du profil
    Informations forums :
    Inscription : Février 2005
    Messages : 15
    Points : 6
    Points
    6
    Par défaut [vbscript] vérifier l'existence d'une clé de registre
    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 : Sélectionner tout - Visualiser dans une fenêtre à part
    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

  2. #2
    Membre habitué
    Inscrit en
    Mars 2006
    Messages
    168
    Détails du profil
    Informations forums :
    Inscription : Mars 2006
    Messages : 168
    Points : 137
    Points
    137
    Par défaut
    moi pour lire une clé de registre je fais ca
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    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

Discussions similaires

  1. TComponent: vérifier l'existence d'une propriété
    Par TicTacToe dans le forum Delphi
    Réponses: 6
    Dernier message: 31/05/2006, 15h28
  2. Vérifier l'existence d'une valeur?
    Par ashen dans le forum Access
    Réponses: 8
    Dernier message: 19/05/2006, 17h10
  3. Vérifier l'existence d'une table SQL
    Par rock_thunder159 dans le forum C++Builder
    Réponses: 5
    Dernier message: 16/02/2006, 13h41
  4. vérifier l'existance d'une table dans une base de donnée
    Par zidenne dans le forum Bases de données
    Réponses: 1
    Dernier message: 31/10/2005, 11h39
  5. Réponses: 3
    Dernier message: 05/04/2005, 14h36

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo