Я использую следующий сценарий для получения разрешения экрана в Windows с помощью WMI. Скрипт отлично работает, когда компьютер находится в альбомном режиме, но возвращает неверные значения в портретном режиме. Правильно работает в XP и не пробовал в Vista. Может ли кто-нибудь подтвердить, что это ошибка в Windows 7 WMI.
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_DesktopMonitor",,48)
For Each objItem in colItems
Wscript.Echo "-----------------------------------"
Wscript.Echo "Win32_DesktopMonitor instance"
Wscript.Echo "-----------------------------------"
Wscript.Echo "ScreenHeight: " & objItem.ScreenHeight
Wscript.Echo "ScreenWidth: " & objItem.ScreenWidth
Next