列进程杀进程的vbs脚本(wmi)

On error resume next

if (lcase(right(wscript.fullname,11))="wscript.exe") then
 wscript.echo "Execute it under the cmd.exe Plz! Thx."
 wscript.quit
end if
Set wmi = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")

action=lcase(trim(Wscript.Arguments(0)))

select case action
 case "pslist"
  pslist
 case "pskill"
  pskill
 case else
  usage
end select

function pslist()
 if Wscript.Arguments.count<2 then
  set process=wmi.execquery("select * from win32_process")
  wscript.echo "PID      Process" & chr(10) & "-----------------------------"
  for each objprocess in process
   wscript.echo objprocess.processid & space(6) & objprocess.name & chr(10) & space(6) & objProcess.ExecutablePath & chr(10) &"-----------------------------"
  next
 else
  set process=wmi.execquery("select * from win32_process where processid='"&Wscript.Arguments(1)&"'")
  for each objprocess in process
   wscript.echo "PID: [ " & objprocess.processid &" ]"& vbcrlf
   wscript.echo "Name: [ " & objprocess.name &" ]"& vbcrlf
   wscript.echo "Path: [ " & objProcess.ExecutablePath &" ]"& vbcrlf
   wscript.echo "Thread: [ " & objProcess.Threadcount &" ]"& vbcrlf
   wscript.echo "PFS: [ " & objProcess.PageFileUsage &" ]"& vbcrlf
   wscript.echo "PF: [ " & objProcess.PageFaults &" ]"& vbcrlf
   Wscript.Echo "WSS: [ " & objProcess.WorkingSetSize &" ]"& vbcrlf
   cputime=(CSng(objProcess.KernelModeTime) + CSng(objProcess.UserModeTime)) / 10000000
   Wscript.Echo "Time: [ " & cputime &" sec ]"& vbcrlf
  next
 end if
end function

function pskill()
 n=0
 if Wscript.Arguments.count<2 then
  wscript.echo "Plz type the the Process ID who you want to kill"
 else
 set process=wmi.execquery("select * from win32_process where processid='"&Wscript.Arguments(1)&"'")
 for each objprocess in process
  n=n+1
  objprocess.terminate()
 next
 wscript.echo n & " process killed"
 end if
end function

function usage()
 wscript.echo "+-------codz By kEvin1986.solitude----------------------------------+"
 wscript.echo "|We Are Fighting Dreamers.                                          |"
 wscript.echo "|Useage:                                                            |"
 wscript.echo "|       cscript.exe solitude.vbe [pslist [PID]| pskill [PID]]       |"
 wscript.echo "+-------------------------------------------------------------------+"&chr(10)
end function