获取屏幕分辨率的VBS代码

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

Dim IE
Set IE = CreateObject("InternetExplorer.Application")
IE.Navigate "about:blank"
Set screen = IE.Document.parentWindow.screen
WScript.Echo "ScreenHeight: " screen.height
WScript.Echo "ScreenWidth: " screen.width

参考链接