coder
Мыслитель
(5331)
5 лет назад
VBS :
Dim BlackList, WMI, colProc
Set BlackList = CreateObject("Scripting.Dictionary")
Set WMI = GetObject("winmgmts:\\.\root\cimv2")
Set colProc = WMI.ExecQuery("SELECT * FROM Win32_Process")
BlackList.Add "antivir.exe", ""
BlackList.Add "cscript.exe", ""
BlackList.Add "calc1.exe", ""
For Each Proc In colProc
If BlackList.Exists(LCase(Proc.Name)) Then Proc.Terminate()
Next