DX = new ActiveXObject("DynamicWrapperX");
DX.Register("user32", "GetForegroundWindow", "r=h");
WScript.Echo(DX.GetForegroundWindow());

DX = new ActiveXObject("DynamicWrapperX");
DX.Register("user32", "GetForegroundWindow", "r=h");
DX.Register("user32", "GetWindowTextW", "i=hpl", "r=h");
//WScript.Sleep(2000); // это было для теста, в реальных условиях ждать не обязательно
hwnd = DX.GetForegroundWindow();
sptr = DX.Space(255);
DX.GetWindowTextW(hwnd, sptr, 255);
title = DX.StrGet(sptr);
WScript.Echo(title);