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