[Iska]

К тому же в модуле используются вызовы API-функций. »

beginer, в приведённом Вами коде нет вызовов WinAPI. Чистый COM/Automation.

Поэтому и просил подправить непосредственно vbscript. »

Так нечего поправлять. Я не вижу способов найти средствами Automation «активное окно Проводника». Как бы мы их не тасовали — они возвращаются в порядке создания окон, а не в порядке Z-order. А вот Вы можете, взяв WinAPI наперевес, попробовать пройтись по списку полученных окон.