Détecter la terminaison d'un processus.

Version imprimable

Bonjour,

Je me remet au VBScript depuis quelque temps et j'ai constaté que j'ai oublié quelque astuce :D

Bon la j'ai un petit problème, mon code me semble bon mais ce n'est pas le cas. Je cherche à détecter la fin d'un processus dont j'ai l'ID.

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
43
44
45
46
47
48
49
50
Sub Test_Main(Debug, CurrentTestSet, CurrentTSTest, CurrentRun)
  ' *** VBScript Limitation ! ***
  ' "On Error Resume Next" statement suppresses run-time script errors.
  ' To handle run-time error in a right way, you need to put "If Err.Number <> 0 Then"
  ' after each line of code that can cause such a run-time error.
  On Error Resume Next
 
  ' clear output window
  TDOutput.Clear
 
  dim ee
  Set objWMIService = GetObject("winmgmts:\\.\root\cimv2:Win32_Process")
  objWMIService.Create """C:\Program Files\TTworkbenchBasic\ttman.bat""" & " -l c:\temp\test -r excel " & """C:\Documents and Settings\uspa8495\workspace\TTsuite-SIP_3.1.1\ttcn3\RFC3261\test.clf""", "C:\Program Files\TTworkbenchBasic\", null, ee
  waitforexit ee
  Set objWMIService = nothing
 
  Set objFSO = CreateObject("Scripting.FileSystemObject")
  Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
  Set colFiles = objWMIService.ExecQuery("Select * from CIM_DataFile where Path = '\\temp\\'")
  'Set AttacheFile = CurrentRun.Attachments
  'For Each objFile in colFiles
  'Set AttacheItem = AttacheFile.AddItem(Null)
  '  AttacheItem.FileName = "C:\temp\" & objFile.Name
  '  AttacheItem.Type=1
  '  AttacheItem.Post 'Mise à jour de la modification sur le serveur de TestDirector.
  'Next
  'Set AttacheFile = nothing
  'Set AttacheItem = nothing
 
  If Not Debug Then
  End If
  ' handle run-time errors
  If Err.Number <> 0 Then
    TDOutput.Print "Run-time error [" & Err.Number & "] : " & Err.Description
    ' update execution status in "Test" mode
    'If Not Debug Then
    '  CurrentRun.Status = "Failed"
    '  CurrentTSTest.Status = "Failed"
    'End If
  End If
End Sub
 
function waitforexit(ee)
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Pid = '" & ee & "'")
if not IsNull(colProcesses) then
XTools.Sleep(1000) 'Code testdirector, c'est un sleep :D
waitforexit ee
end if
end function

Le code en commentaire c'est du code TestDirector, pour ceux que cela interesse, ...

Bon le problème est dnas wiatforexit, je ne sors pas de ma récursivité.

Vous allez me dire qu'elle idée de passer par la récursivité, je fais un foreach et je met le set colprocesses dedans et je test sa nullité et c'est moins dangereux :D
Ok mais bon j'aimerais comprendre pouquoi cela ne fonctionne pas.

20/12/2007, 18h59
ThierryAIM

Quelle idée d'utiliser la récursivité, si tu avais .... bon bref :mouarf:

tu n'aurais pas oublié d'affecter ee avant l'appel récursif ?
21/12/2007, 09h37
ced600

Bon ok ma variable n'est pas tres parlante :

Code:

objWMIService.Create """C:\Program ....\ttman.bat""" & " -l c:\temp\test -r excel " & """C:\Documents ...\test.clf""", "C:\Program ...\", null, ee

Normalement Create y affecte le PID du processus Créé
21/12/2007, 10h31
SfJ5Rpw8
j'ai pas l'habitude d'utiliser WMIService.. mais à priori ton test IsNull ne fonctionne pas :
Code:

1 2 3 4 Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process ") wscript.Echo IsNull(colProcesses)
renvoi faux ...!
faudrai voir du coté de colProcesses.Count ..? peu-être ...

ensuite vérifier ce que renvoi ee ..?

pour PID il faut mettre ProccesID:
Code:

1 2 Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where ProcessID=2636")

Tiens une proposition de solution pour ta fonction récursive :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
wscript.echo "Avant"
waitforexit(6028)
wscript.echo "Aprés"
 
function waitforexit(ee)
On Error Resume next
Dim i 
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Processid = " & ee & "")
i = 0
i = colProcesses.Count
Wscript.echo i
if i > 0 then
Wscript.Sleep(1000) 'Code testdirector, c'est un sleep :D
waitforexit ee
 
end if
end function

pour tester je lance la caculatrice de windows , je récupère le processid grâce à la commande :

Code:

1
2
3
4
5
6
 
C:\Documents and Settings\bbil>tasklist /FI "IMAGENAME eq calc.exe"
 
Nom de l'image              PID  Nom de la sessio Numéro d Utilisation
========================= ====== ================ ======== ============
calc.exe                    6028 Console                 0     3 072 Ko

je remplace le n° de PID 6028 dans le script....Et voila...

Citation:

Avant
1
1
1
1
1
1
1
1
0
Après

Merci de t'être pencher sur le problème.

Comme tu l'as montré IsNull marche, puisque la collection de tous les process (select *) de la machine n'est certaine pas vide :D

Mais il semblerait tout simplement que si la collection est vide, l'objet est quand même renvoyé et donc il n'est pas null mais count est à 0.
D'ailleurs je viens de retrouver un bout de code que j'ai ecrit il y longtemps :
Code:

1 2 3 4 5 6 7 8 9 Set colProcessList = objWMIService.ExecQuery("SELECT * FROM Win32_Process WHERE Name = 'sipp.exe'") 'La présence de processus SiPp, non terminés, signifie qu'il y a eu une erreur durant le test. If colProcessList.count <> 0 Then err.number = 902 'L'objet Err de VBS est utilisé pour gérer les erreurs. err.description = "Des scenarios SiPp se sont mal terminés" ErrorFile path, Err 'Ajout du descriptif de l'erreur dans le fichier "erreur" généré. err.clear End If
J'utilisais count :mrgreen:

Citation:

pour PID il faut mettre ProccesID:

En effet je n'avais pas vérifier la véracité de la syntaxe sql.

Pour l'ensemble de mon oeuvre je merriterais la :fessee: voir :sm: :mrgreen:

Je vérifie si cela marche et je met le tag résolu :D

21/12/2007, 12h12
SfJ5Rpw8

Citation:

Envoyé par ced600

...
Comme tu l'as montré IsNull marche, puisque la collection de tous les process (select *) de la machine n'est certaine pas vide :D...

eu ... te moque pas ... j'ai pas montré le bon exemple ... enfin comme tu la compris je voulais dire qu'Ici IsNull nous renvoi toujours 0 ;)
21/12/2007, 12h15
ced600

Oui en fait je l'utilisais pour d'autre objet WMI que je récupérais car ceux-ci pouvaient ne pas être récupéré.

Voici ma fonction presque finale (faut que je change le nom de la variable :D )

Code:

1
2
3
4
5
6
7
8
9
10
11
12
function waitforexit(ee)
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where ProcessID = '" & ee & "'")
if not IsNull(colProcesses) then
   If colProcesses.Count <> 0 Then
      XTools.Sleep(1000)
      waitforexit ee
   End If
else
'Utiliser Err pour mettre un statut d'erreur.
end if
end function

Cela marche très bien et c cool cela :D

04/04/2011, 15h16
ced600

Citation:

Je vérifie si cela marche et je met le tag résolu

Je suis un peu lent à la détente. :mrgreen: