WSH & Win32API: Библиотека scrsvc.dll

' Вывод списка окон в диалог множественного выбора 
' Win XP/7

Option Explicit

Dim arr()
Dim arrRet
Dim oScrSvc
Dim iLen, i, j
Dim sStr,s 

' Создание объекта
'--------------------------------------------------------------
Set oScrSvc = CreateObject("ScriptService.Service")

iLen = 255
sStr = String(iLen,Chr(32))

' Перебор окон, назначение функции обратного вызова
'--------------------------------------------------------------
j = 0

With oScrSvc
	.set_vararg 0, oScrSvc.internal_callback(Me, "EnumClbck",2)
	.set_vararg 1, 0
	.api_call "USER32.DLL","EnumWindows",2
End With

' Вызвать диалог
'--------------------------------------------------------------
arrRet = oScrSvc.multi_dialog(arr)

' Разобрать выбранные значения
'--------------------------------------------------------------
For i = 0 To UBound(arrRet)
	s = s &  arrRet(i) & vbCRLF
Next

WScript.Echo s
Set oScrSvc = Nothing
WScript.Quit()

' Функция обратного вызова
'--------------------------------------------------------------
Function EnumClbck(hwnd, lParam)
		
	Dim sH
	ReDim Preserve arr(j+1)

	With oScrSvc
		.set_vararg 0, CDbl(hwnd)
		.set_strarg 1, sStr, True
		.set_vararg 2, iLen
		.api_call "USER32.DLL","GetClassNameW",3,1
	End With

	sH = Hex(hwnd)
	arr(j) = CStr("0x" & String(8-Len(sH),"0") & sH & Chr(32) & oScrSvc.pull_string(sStr,True))

	j = j + 1
		
End Function

// Вывод списка окон в диалог множественного выбора 
// WinXP/7

var oScrSvc = new ActiveXObject('ScriptService.Service');
var oDict = new ActiveXObject('Scripting.Dictionary');

var cnt = 0;
var s = new String('Выбранные значения: \n\r');

var lSlen = 255; 
var vPtr = oScrSvc.struct_setval(AllocStr(lSlen));

// Перебор окон, назначение функции обратного вызова
with (oScrSvc)
{

	set_vararg(0, oScrSvc.internal_callback(this, 'EnumClbck',2));
	set_vararg(1, 0);
	api_call('USER32.DLL','EnumWindows',2);
}

// Преобразовать заполненную коллекцию в VBArray
var arr = VBArray(oDict.items());

// Вызвать диалог
var arrRet = oScrSvc.multi_dialog(arr).toArray();

// Разобрать полученные значения
for (var i=0; i<arrRet.length; i++) 
{
	s = s + String(arrRet[i])+'\n\r'; 
};

WScript.Echo(s);
oDict = null;
oScrSvc = null;
WScript.Quit();

// Функция обратного вызова
// --------------------------------------------------------------
function EnumClbck(hwnd, lParam)
{
	
	with (oScrSvc)
	{
		set_vararg(0, hwnd);
		set_vararg(1, vPtr);
		set_vararg(2, lSlen);
		lRes = api_call ('USER32.DLL','GetClassNameW',3,1);
	}
	

	var sHwnd = Number(hwnd).toString(16);
	for (var i=0;i<8-sHwnd.length;i++)
	sHwnd = '0'+sHwnd;
	
	oDict.Add(cnt, String('0x'+sHwnd) + String.fromCharCode(32) + oScrSvc.pull_string(vPtr,true)); 
	cnt++;
}


//
// Выделение строки заданной длины
//
//---------------------------------------------------------- 
function AllocStr(lStrLen)
{
	var sStr = '\0';
	for (i=0;i<lStrLen-1;i++)
	sStr = sStr + '\0';
	return sStr;
}