如何获得当前窗口的显示分辨率？

下面的代码就是一段得到显示分辨率的典型程序：

Set WSHShell = WScript.CreateObject("WScript.Shell")
set objSysInfo = Wscript.CreateObject("SYSINFO.Sysinfo")
wscript.echo objSysInfo.WorkAreaHeight
wscript.echo objSysInfo.WorkAreaWidth

如果程序不能运行，请注意一下Sysinfo.ocx是否注册。