首页 / 编程脚本 / 获取屏幕分辨率的VBS代码

我想到的方法有两种。

一种是WMI中的Win32_DesktopMonitor类
复制代码 代码如下:
strComputer = "."
Set objWMIService = GetObject（"winmgmts:\" & strComputer & " ootcimv2"）
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

一种是HTML DOM中的screen对象
复制代码 代码如下:
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

参考链接

1. Win32_DesktopMonitor Class
2. screen Object

原文：http://demon.tw/programming/vbs-picture-resolution.html