Retour sur Vérifier si un processus devient inactif et avertir si c'est le cas

Version imprimable

Débutant en VBScript j'aurai souhaité si possible un commentaire plus détaillé sur la partie Loop du script "CheckMyProcessActif" que je rappelle
et concernant la version avec fichier journal ajouté qui correspond bien à mon application dans quel répertoire doit on trouver le fichier log?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Option Explicit
Dim ws,MyProcess
Set ws = CreateObject("WScript.Shell")
MyProcess = "Calc.exe"
Do
'On vérifie si le processus de la calculatrice ne tourne pas alors
'on l'exécute
    If CheckProcess(MyProcess) = False then 
        ws.run MyProcess
    else
'On fait une pause d'une minute et on continue dans notre boucle pour vérifier
'la présence ou non de notre processus (Dans notre cas = Calc.exe)
        Pause(1)
    End if
Loop
'***************************************************************************
    Function CheckProcess(MyProcess)
        Dim strComputer,objWMIService,colProcessList
        strComputer = "."
        Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
        Set colProcessList = objWMIService.ExecQuery _
        ("Select Name from Win32_Process WHERE Name LIKE '" & MyProcess & "%'")
        If colProcessList.count > 0 then
            CheckProcess = MyProcess & " is running"
            CheckProcess = True
    MsgBox"is running"
 
        else
            CheckProcess = MyProcess & " is not running"
            CheckProcess = False
    MsgBox"is not running"
        End if
        Set objWMIService = Nothing
        Set colProcessList = Nothing
    End Function
'*****************************************************************************
    Sub Pause(NSeconds)
        Wscript.Sleep(NSeconds*1000*60)
    End Sub  
'*********

Bonjour,

La parti Do Loop semble déjà être commenté ?

Sinon quelques petites remarques et idées, si tu le permet :

- La routine "Sub Pause" semble transmettre des secondes (nom du paramètre NSeconds) mais se sont des minutes.

- Rien ne sert de définir 2 fois de suite "CheckProcess", ça sera la dernière valeur qui restera.
CheckProcess = MyProcess & " is running"
CheckProcess = True
et
CheckProcess = MyProcess & " is not running"
CheckProcess = False

- Problème d'indentation de la Function et du Sub.

- Les commentaires doivent informer sur ce que fait la ou les lignes du dessous aussi j'aurai plutôt fait comme ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 ' Boucle infini Do ' Si le processus de la calculatrice n'existe pas If CheckProcess(MyProcess) = False Then ' On lance le processus de la calculatrice ws.run MyProcess ' Sinon (si le processus de la calculatrice existe) Else ' On fait une pause d'une minute Pause(1) End if Loop
- Je n'aurai pas mis de MsgBox dans la Function CheckProcess mais plutôt dans ma boucle. Le mieux étant que les Function/Sub fasse uniquement ce pour quoi elle sont faite.

- Ce n'est pas une vérification exacte, tu ne vérifie pas si le processus calc existe, mais plutôt si un processus commence par calc (MyProcess & "%'").

La fonction MsgBox est bloquante et attend toujours une action pour permettre au script de continuer.

Moi j'aurais utilisé la méthode PopUp de l'objet WshShell(ici déclaré WS) ; je mettrais une petite valeur pour la durée d'attente et une condition pour pouvoir arrêter le script quand je le veux.

Voici une esquisse du

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Option Explicit
    Dim WS, MyProcess, intReturn
    Set WS = CreateObject("WScript.Shell")
 
    MyProcess = "Calc.exe"
    Do
    'On vérifie si le processus de la calculatrice ne tourne pas alors
    'on l'exécute
        If Not CheckProcess(MyProcess) Then 
            intReturn = WS.PopUp(MyProcess & " is not running", 2, MyProcess, 1)
            ' Si l'utilisteur clique sur le bouton "Annuler", on quitte Wscript sans lancer le processus
            ' Si aucune action n'a été entreprise ou qu'on cliqué sur OK, le script continue et lance le processus
            If intReturn = 2 Then Wscript.Quit
            WS.Run MyProcess
        Else
       'On fait une pause d'une minute et on continue dans notre boucle pour vérifier
       'la présence ou non de notre processus (Dans notre cas = Calc.exe)
            Pause(1)
        End If
    Loop
'************************************************
   Function CheckProcess(MyProcess)
      Dim strComputer,objWMIService,colProcessList
      strComputer = "."
      Set objWMIService = GetObject("winmgmts:" _
      & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
      Set colProcessList = objWMIService.ExecQuery _
      ("Select Name from Win32_Process WHERE Name = '" & MyProcess & "'")
      If colProcessList.count > 0 Then
         CheckProcess = True
        ' MsgBox"is running"
      Else
        CheckProcess = False
      End If
      Set objWMIService = Nothing
      Set colProcessList = Nothing
   End Function
'**************************************************
    Sub Pause(nMinutes)
        Wscript.Sleep(nMinutes*1000*60)
    End Sub  
'**************************************************