Discussion :

[Eric_03]

Bonjour,

je voudrai supprimer plusieurs processus avec un script vbs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

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
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

[Eric_03]

Merci
Eric