vbs获取当前活动窗口标题

如题，用下列代码并没成功获取
===========================
wscript.sleep 5000
Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks

For Each objTask in colTasks
If objTask.Visible Then
Wscript.Echo objTask.Name
Exit For
End If
Next
objWord.Quit
======================================
请高人指教

函数功能：该函数将指定窗口的标题条文本（如果存在）拷贝到一个缓存区内。如果指定的窗口是一个控制，则拷贝控制的文本。但是，GetWindowTeXt不能接收在其他应用程序中的控制文本。

函数原型：Int GetWindowText（HWND hWnd，LPTSTR lpString，Int nMaxCount）；

参数：

hWnd:带文本的窗口或控制的句柄。

IpString：指向接收文本的缓冲区的指针。

nMaxCount:指定要保存在缓冲区内的字符的最大个数，其中包含NULL字符。如果文本超过界限，它就被截断。

返回值：如果函数成功，返回值是拷贝的字符串的字符个数，不包括中断的空字符；如果窗口无标题栏或文本，或标题栏为空，或窗口或控制的句柄无效，则返回值为零。若想获得更多错误信息，请调用GetLastError函数。

函数不能返回在其他应用程序中的编辑控制的文本。

备注：如果目标窗口属于当前进程，GetWindowText函数给指定的窗口或控制发送WM_GETTEXT消息。如果目标窗口属于其他进程，并且有一个窗口标题，则GetWindowTeXt返回窗口的标题文本，如果窗口无标题，则函数返回空字符串。