刚学会写点简单的vbs,献献丑
Option Explicit
Dim strComputer,wmiNS,wmiQuery,objWMIService
Dim colItems,objItem
wmiNS = "\root\cimv2"
wmiQuery = "Select * from Win32_Process"
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & WmiNS)
Set colItems = objWMIService.EXECQuery(WMiQuery)
For Each objItem In colItems
WScript.Echo objItem.Name & vbtab & objItem.executablepath
Next