windows - 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