ник: Bellerofont
можно использовать WMIService
Dim objWMIService As Object
Dim colProcesses As Object
Dim objProcess As Object
Set objWMIService = GetObject("winmgmts:")
Set colProcesses = objWMIService.ExecQuery("Select * from Win32_Process")
For Each objProcess In colProcesses
Debug.Print objProcess.Name, objProcess.processid, objProcess.parentprocessid
Next
|