获取屏幕分辨率的VBS代码

2020-06-26 18:25:05

字体：大中小

来源：转载

供稿：网友

我想到的方法有两种。一种是WMI中的Win32_DesktopMonitor类一种是HTML DOM中的screen对象，需要的朋友可以参考下。

我想到的方法有两种。

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