supprimer plusieurs processus

Bonjour,

je voudrai supprimer plusieurs processus avec un script vbs
Code:

1 2 3 4 5 6 7 8 strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process Where Name = 'Nom du processus'") For Each objProcess in colProcessList objProcess.Terminate() Next
Comment puis je intégrer plusieurs Noms de processus dans le code ci-dessus?

Merci
Eric

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
dim objWMIService
dim objProcess
dim colProcessList
dim strComputer
 
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
 
Set colProcessList = objWMIService.ExecQuery ("Select * from Win32_Process")
 
For Each objProcess in colProcessList
  select case objProcess.name
   case "LePremier.exe" : objProcess.Terminate()
   case "LeTroisiéme.exe":objProcess.Terminate()
   case "LeVingtiéme.exe":objProcess.Terminate()
 end select
Next

Merci
Eric