Вот - есть у всех...
Или, то же самое, в виде функции
Function ProcessView(Name, Computer)
if Computer = "" Then
Computer = "."
End If
Dim Query
Query = "SELECT * FROM Win32_Process"
If Name <> "" Then
Query = Query + " WHERE Name='" & Name & "'"
End If
Dim WMI
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & Computer & "\root\cimv2")
Set ProcessView = WMI.ExecQuery(Query)
End Function
Computer = "."
Name = "cmd.exe"
Set pv = ProcessView(Name, Computer)
For Each p in pv
Wscript.Echo p.Name, p.CommandLine
NextstrComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery("Select * from Win32_Process where Name='wscript.exe'")
For Each objProcess in colProcessList
Wscript.Echo objProcess.CommandLine
Nextwmic.exe process where "name='wscript.exe'" get commandlineи, например:
wmic.exe process where (name="wscript.exe" and commandline like "%\\temp\\%") call terminate Запускать так
pv.exe WScript.exe -l
На что получим:
WScript.exe 1756 "C:\WINDOWS\System32\WScript.exe" "С:\create lnk.js"
Ключ -l показывает параметры с которыми был запущен процесс.
Так же поддерживаются маски в имени файла.
PS Кстати утилита отлично убивает подвисшие процессы. с ключом -k