简单的vbs进程查询答案

【问题标题】：simple vbs process query简单的vbs进程查询
【发布时间】：2013-01-13 19:06:36
【问题描述】：

我是 vbs 的新手，但已经用 c、c++ n java 进行过编程。我尝试通过互联网搜索，但我仍然找不到我错在哪里。我正在编写一个脚本来杀死一个名为 rundll 的进程，如果它超过 20% 的 cpu 使用率。

Option Explicit
DIM MyPID(5), objProcess, objItems, objitem
DIM XX, I
XX = -1
dim objService
set objService = getobject("winmgmts:")
dim Process
for each Process in objService.InstancesOf("Win32_process")
if Process.Name = "rundll32.exe" Then XX = XX + 1
if Process.Name = "rundll32.exe" Then MyPID(XX) = Process.processid
Next

For I = 0 To 5
Set objProcess = GetObject("winmgmts:{impersonationLevel=impersonate}//localhost")
Set objItems = objProcess.ExecQuery("Select PercentProcessorTime from Win32_PerfFormattedData_PerfProc_Process where IDProcess=" &MyPID(I)& "")
if (IsNull(objItems)) Then
    Wscript.Echo "No process found"
    Exit For
End if
for each objItem in objItems
    if objItems = Null Then
    Wscript.Echo "No process found"
    elseif objItem>20 Then Wscript.Echo "Criminal process found :" & MyPID(I) & " = " & objItem.PercentProcessorTime
    End if
NEXT

NEXT

如果脚本没有找到进程，它应该打印没有找到进程，而不是我现在收到的复杂的空警报

任何帮助都将不胜感激，并提出建议

【问题讨论】：

标签： process vbscript kill-process

【解决方案1】：

不要为特定的 PID 枚举 PercentProcessorTime，而是尝试枚举超过阈值的进程，如果它们的名称符合条件则终止它们：

Set wmi = GetObject("winmgmts://./root/cimv2")

perfQuery = "SELECT * FROM Win32_PerfFormattedData_PerfProc_Process " & _
            "WHERE PercentProcessorTime >= 20"
For Each p In wmi.ExecQuery(perfQuery)
  pidQuery = "SELECT * FROM Win32_Process WHERE ProcessId = " & p.IDProcess
  For Each p1 In wmi.ExecQuery(pidQuery)
    If p1.Name = "rundll32.exe" Then p1.Terminate
  Next
Next

【讨论】：