set monitors = GetObject("winmgmts:").instancesOf("Win32_DesktopMonitor") for each monitor in monitors with monitor if .DeviceID = "DesktopMonitor1" then ScrnH = .ScreenHeight ScrnW = .ScreenWidth end if end with next wscript.echo "Résolution = " & ScrnW & "x" & ScrnH