Я использую следующий script, чтобы получить разрешение экрана в Windows с использованием WMI. script отлично работает, когда компьютер находится в ландшафтном режиме, но возвращается в портретном режиме. Работает правильно в 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