获取屏幕分辨率的vbs脚本

Dim IE

Set IE = CreateObject("InternetExplorer.Application")

IE.Navigate "about:blank"

Set screen = IE.Document.parentWindow.screen

WScript.Echo "分辨率:"& screen.width&"*"& screen.height

举例脚本（可直接复制至你的vbs文件）直接点击下载

Dim IE

Set IE = CreateObject("InternetExplorer.Application")

IE.Navigate "about:blank"

Set screen = IE.Document.parentWindow.screen

WScript.Echo "分辨率:"& screen.width&"*"& screen.height