VBScript - 获取主监视器分辨率

Question

我需要使用VBScript获得当前的主显示分辨率。主显示屏上有开始菜单。

我检查过：

• Win32_VideoSettings数组有0个元素
• Win32_VideoConfiguration数组有0个元素
• Win32_VideoController数组总是有1个元素 - 即使插入了第二个监视器

如何获得当前设置主屏幕的分辨率？

Answer 1

'Author: Demon
'Website: http://demon.tw
'Date: 2012/5/7
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_DesktopMonitor",,48)

For Each objItem in colItems
    WScript.Echo "ScreenHeight: " & objItem.ScreenHeight
    WScript.Echo "ScreenWidth: " & objItem.ScreenWidth
Next