我想到的方法有兩種。一種是WMI中的Win32_DesktopMonitor類 一種是HTML DOM中的screen對(duì)象，需要的朋友可以參考下。

一種是WMI中的Win32_DesktopMonitor類

代碼如下:

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

一種是HTML DOM中的screen對(duì)象

代碼如下:

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