获取屏幕分辨率的VBS代码

168 阅读 0 评论 111 点赞

我是靠谱客的博主闪闪大树，最近开发中收集的这篇文章主要介绍获取屏幕分辨率的VBS代码，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

我想到的方法有两种。

一种是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对象

复制代码代码如下:

 
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 