Здравствуйте, S_A_S, Вы писали:

Если возможно, посоветуйте, как решить эту проблему с использованием входящих в Windows объектов таких как WMI.

Это оно?

'Windows Management Instrumentation (WMI)
Dim objProcessName
strComputer = "Name_of_comp" 'подставить нужное имя
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process ")
For Each objProcess in colProcessList
objProcessName = objProcessName & ", " & objProcess.name
Next
Wscript.Echo "Процессы: " & objProcessName