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

VBScript Discussion :

[VBS] comprendre ce script de ThierreyAIM


Sujet :

VBScript

  1. #1
    Gunner4902
    Invité(e)
    Par défaut [VBS] comprendre ce script de ThierreyAIM
    Bonjour,

    J'ai vu dans la FAQ VBS ce script pour tuer les processus en mémoire :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
     
    Set colProcessList = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = 'movamp.exe'")
     
    For Each objProcess in colProcessList
        objProcess.Terminate()
    Next
    Je cherche en fait à "tuer" le processus (G:\)Apache\movamp.exe puis à le lancer (ça évite de tester s'il est en mémoire pour le lancer dans la négative)…

    Donc après le code ci-dessus, je comptais mettre :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Set wshell=CreateObject("WScript.Shell")
    wshell.Run"Apache\movamp.exe"
    Le problème est que movamp se lance bien, mais s'il est déjà présent, le processus en mémoire n'est pas tué… qu'est-ce que j'ai mal configuré ?

  2. #2
    Expert confirmé
    Avatar de ced600
    Homme Profil pro
    Développeur .NET
    Inscrit en
    Août 2006
    Messages
    3 364
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 43
    Localisation : France

    Informations professionnelles :
    Activité : Développeur .NET

    Informations forums :
    Inscription : Août 2006
    Messages : 3 364
    Par défaut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    Set colProcessList = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = 'movamp.exe'")
    movamp.exe correspond au nom du processus dans la liste des processus et non au nom de l'exécutable. Vérifie avec le "gestionnaires des taches" de windows que le processus s'appelle bien ainsi.

    Tu n'as pas besoin de tenter de tuer le processus avant de le lancer :
    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
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
     
    Set wshell=CreateObject("WScript.Shell")
     
    Set colProcessList = objWMIService.ExecQuery _
        ("Select * from Win32_Process Where Name = 'movamp.exe'")
     
    If (colProcessList.count = 0) Then
       wshell.Run"Apache\movamp.exe"
    Else
       For Each objProcess in colProcessList
          objProcess.Terminate()
       Next
       wshell.Run"Apache\movamp.exe"
    End If
    colProcessList est vide s'il ne trouve pas de 'movamp.exe', donc inutile de faire la boucle. Enfin juste une question de propreté, et cela dépend de si tu veux relancer le process, ou just le lancer lorsqu'il n'est pas présent.
    La le script relance le process s'il est présent, et le lance s'il est absent.

  3. #3
    Gunner4902
    Invité(e)
    Par défaut
    Merci beaucoup, c'est exactement ce que je voulais obtenir comme résultat

    Sinon, pour ceux que ça pourrait intéresser : movamp.exe est bien également le nom du processus (image) et de l'application

Discussions similaires

  1. Comprendre un script VBS
    Par technopowaz dans le forum VBScript
    Réponses: 1
    Dernier message: 05/05/2013, 12h28
  2. [AJAX] Comprendre un script ajax pour l'adapter
    Par whitespirit dans le forum Général JavaScript
    Réponses: 1
    Dernier message: 14/05/2008, 15h19
  3. [VBS] Lancer plusieurs script dans le même interpréteur
    Par intrud3r dans le forum VBScript
    Réponses: 4
    Dernier message: 12/07/2006, 15h26
  4. [VBS] Quiter le script
    Par Edoxituz dans le forum VBScript
    Réponses: 13
    Dernier message: 22/02/2006, 19h41
  5. WSH windows scripting host vbs: delphi et script
    Par nek_kro_kvlt dans le forum Langage
    Réponses: 5
    Dernier message: 30/11/2005, 17h55

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