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
|
Option Explicit
Dim objWMIService, objProcess, colProcess
Dim strComputer, strList, strProcessToKill
Dim intCpt
strProcessToKill ="calc.exe" 'Nom du process"
strComputer = "." 'Nom de l'ordinateur serveur ou il y a les process. (tu peux laisser le . pour le local
intCpt = 0
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process")
For Each objProcess in colProcess
if Left(objProcess.Name,2) = Left(strProcessToKill,2) then
'On test que le début du process est identique à celui du process
'Left(strProcessToKill,2, tu peux mettre juste strProcess si tu met le début qui est commun à tout tes process de licence. Il faut ajuster le nombre du Left(objProcess.Name,2) . on prend que les deux premieres lettres du process et on vérifier qu'elle soit identique.
objProcess.Terminate() 'tue le process
intCpt = 1 + intCpt
end if
Next
WSCript.Echo intCpt & " Process Kill"
WScript.Quit |
Partager