Здравствуйте, Аноним, Вы писали:


А>Это оно?

А>'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

Честно говоря я не заметил существенных отличий в этом коде от того, который у меня в вопросе.
МНЕ НУЖНЫ НЕ PID процессов (objProcess.name в Вашем коде), а ЗАГОЛОВКИ АКТИВНЫХ ОКОН.