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