3

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

我检查过：

  • Win32_VideoSettings 数组有 0 个元素

  • Win32_VideoConfiguration 数组有 0 个元素

  • Win32_VideoController 数组始终有 1 个元素 - 即使插入了第二个监视器

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

4

1 回答 1

3 
'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
于 2012-05-07T13:43:41.250 回答