wndclass="Notepad";
sh=new ActiveXObject("WScript.Shell");
wrap=new ActiveXObject("DynamicWrapper");

for(n=1024, title=""; n>0; n--) title+=" ";

wrap.Register("User32.dll", "FindWindow", "i=su", "f=s", "r=h");
wrap.Register("User32.dll", "GetWindowTextW", "i=hwl", "f=s", "r=l");

if(!(hwnd=wrap.FindWindow(wndclass, 0)))
  sh.Popup("Окон не найдено");
else {
  wrap.GetWindowTextW(hwnd, title, 1024);
  sh.Popup(title, 0, "Заголовок окна");
}