【VB】VB使用Wmi获取系统当前进程详细信息

VB使用Wmi获取系统当前进程详细信息：

Dim Wmi, Jic  As String
For Each Wmi In GetObject("winmgmts:.rootcimv2:win32_process").instances_   '循环进程
  Jic = Jic & "  " & _
      "进程:" & Wmi.Name & "  " & _
      "路径:" & Wmi.executablepath & "  " & _
      "线程:" & Wmi.ThreadCount & "  " & _
      "PID:" & Wmi.ProcessID & "  " & _
      "父PID:" & Wmi.ParentProcessID & "  " & _
      "优先级:" & Wmi.Priority & "  " & _
      "命令行:" & Wmi.CommandLine & "  " & _
      "内存:" & Wmi.WorkingSetSize / 1024 & "K" & "  " & _
      "用户:" & Wmi.ExecMethod_("GetOwner").User & "  " & _
      "启动时间:" & Wmi.CreationDate & "  " & vbCrLf
      '"PID:" & Wmi.Handle '另外一种获取PID函数
Next
MsgBox Jic

VB "winmgmts:.rootCIMV2"对象的详细用法：

·GetOwner() 取得进程用户名。用法：objGetOwner(变量名)
·Terminate() 结束进程。用法：obj.Terminate()

属性：
·ProcessID 进程的PID。
·ThreadCount 进程的线程数
·ExecutablePath 进程的完整路径