strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" &
amp; strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select *
From Win32_DesktopMonitor",,48)
For
each ob
JITem in colItems
WScript.Echo "ScreenH
eight: " & objItem.ScreenHeight
WScript.Echo "ScreenWidth: " & objItem.ScreenWidth
Next
Dim IE
Set IE = CreateObject("
internetE
xplorer.Application")
IE.
navigate "about:blank"
Set screen = IE.Document.parentWindow.screen
WScript.Echo "ScreenHeight: " & screen.height
WScript.Echo "ScreenWidth: " & screen.width
s-picture-resolution.html