По каждому процессу получаем "Заголовок окна" а там уж сами решайте - подходит или не подходит.
Всем участникам благодарен за внимание к моему вопросу и оживленную дискуссию.
Надеюсь на дальнейшее плодотворное сотрудничество. 
' окно процесса
Set WshShell = WScript.CreateObject("WScript.Shell")
if Instr(1, WScript.FullName, "WScript.exe", 1) > 0 Then
WshShell.Run "CScript """ & WScript.ScriptFullName & """", 0
Set WshShell = Nothing
WScript.Quit 1
End if
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process")
Set Stream = CreateObject("ADODB.Stream")
For Each objProcess in colProcess
Set WshExec = WshShell.Exec("cmd")
With WshExec.StdIn
.WriteLine "tasklist /FI ""IMAGENAME eq " + objProcess.Name + """ /V /FO ""LIST"""
.WriteLine "exit"
End With
ss = WshExec.StdOut.ReadAll
ss = StrConv(ss, "Windows-1251", "cp866")
MsgBox ss
Set WshExec = Nothing
Next
Set Stream = Nothing
Set WshShell = Nothing
WScript.Quit 0
' конвертация из DOS в WINDOWS
Function StrConv(Text, SourceCharset, DestCharset)
Stream.Type = 2
Stream.Mode = 3
Stream.Open
Stream.Charset = SourceCharset
Stream.WriteText Text
Stream.Position = 0
Stream.Charset = DestCharset
StrConv = Stream.ReadText
Stream.Close
End Function
.