VBScript: список активных окон Windows

[SAS]

Доброе утро.

Возможно ли написать такой VBScript, который
1. перечислял бы все запущенные на клиентской машине приложения и
2. обновлял бы эту информацию, когда любое приложение закроется или откроется.

Спасибо.

[Ruslan Demidow]

1. Возможно (через WMI - что явно указывает на узкую применимость - системы линейки NT).
2. В реальном режиме без внешних приблуд отследить открытие и закрытие окон нельзя. А если запустить скрипт в бесконечный цикл с остановками на время ( Sleep (ВремяВМиллисекундах)) - то в принципе можно получить хоть какое-то подобие желаемого.

[SAS]

1. Возможно (через WMI - что явно указывает на узкую применимость - системы линейки NT).

Я нашел подобную тему, но там рассматривается возможность получения списка окон на VB с использованием API
http://bbs.vbstreets.ru/viewtopic.php?t=13871. Узкость использования WMI меня не пугает. Однако мне пока не удалось получить ответа на вопрос как получить список окон работающих приложений с помощью WMI - список процессов - пожалуйста.

Код: Выделить всё

Machine="GeoITWS0"' имя машины
set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}" _
                                     & "!" & Machine).InstancesOf("Win32_Process")
' перечисление процессов
For Each oProcess in oWMI
        processes = processes &  oProcess.Name & _
        " " & oProcess.ProcessID & _
        " " & oProcess.priority & chr(13) & chr(10)
Next

Правда на самом деле я не понимаю что использую:
("winmgmts:{impersonationLevel=impersonate}" & "!" & Machine).InstancesOf("Win32_Process").
Может быть подскажете как именно получить список работающих приложений? мне это нужно чтобы потом была возможность использовать метод AppActivate:

Код: Выделить всё

dim WSH
set WSH=WScript.CreateObject("WScript.Shell")
WSH.AppActivate ("заголовок активного окна")