代码如下
Sub DisplayAllProcess()
Dim objs, obj
Set objs = GetObject("WinMgmts:").InstancesOf("Win32_Process")
For Each obj In objs
Debug.Print obj.Description
Next
End Sub
执行结果:
System Idle Process
System
smss.exe
csrss.exe
wininit.exe
ShellExperienceHost.exe
RuntimeBroker.exe
SogouImeBroker.exe
RtkNGUI64.exe
dllhost.exe
EXCEL.EXE
chrome.exe
ONENOTE.EXE