 
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ì)象

復(fù)制代碼代碼如下:

 
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 

參考鏈接

Win32_DesktopMonitor Class
screen Object

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

您可能感興趣的文章:

屏幕分辨率

相關(guān)文章

VBS教程：VBscript語(yǔ)句-Option Explicit 語(yǔ)句
VBS教程：VBscript語(yǔ)句-Option Explicit 語(yǔ)句...
2006-11-11
用VBS寫(xiě)的VBSCRIPT代碼格式化工具VbsBeautifier
這篇文章主要介紹了用VBS寫(xiě)的VBSCRIPT代碼格式化工具VbsBeautifier,需要的朋友可以參考下
2014-09-09
vbs sendKeys 16進(jìn)制的結(jié)合使用(打開(kāi)IE，靜音，打開(kāi)播放器等)
看到demon.tw的文章，發(fā)現(xiàn)的sendkeys 16進(jìn)制的效果，非常的不錯(cuò)，喜歡的朋友可以參考下。
2011-02-02
vbs 讀寫(xiě)注冊(cè)表之系統(tǒng)啟動(dòng)項(xiàng)添加與刪除
這篇文章主要介紹了vbs 讀寫(xiě)注冊(cè)表之系統(tǒng)啟動(dòng)項(xiàng)添加值,需要的朋友可以參考下
2019-12-12
最新惡意復(fù)制型病毒autorun.inf，stNP.VBS，NP.VBS代碼簡(jiǎn)單解析和解決方法
最新惡意復(fù)制型病毒autorun.inf，stNP.VBS，NP.VBS代碼簡(jiǎn)單解析和解決方法...
2007-05-05
vbscript Registry 注冊(cè)表操作實(shí)現(xiàn)代碼(讀寫(xiě)刪除)
vbscript Registry 注冊(cè)表操作實(shí)現(xiàn)代碼(讀寫(xiě)刪除)功能代碼，需要的朋友可以參考下。
2011-12-12
用vbs實(shí)現(xiàn)配置無(wú)人登錄計(jì)算機(jī)時(shí)使用的屏幕保護(hù)程序
用vbs實(shí)現(xiàn)配置無(wú)人登錄計(jì)算機(jī)時(shí)使用的屏幕保護(hù)程序...
2007-03-03
vbscript Split函數(shù)用法詳解(字符串轉(zhuǎn)數(shù)組函數(shù))
本文詳細(xì)介紹了vbscript中split函數(shù)的用法，有關(guān)split函數(shù)的一些實(shí)例，vbscript中split函數(shù)的語(yǔ)法介紹，有需要的朋友參考下
2014-05-05
VBS教程：函數(shù)-CInt 函數(shù)
VBS教程：函數(shù)-CInt 函數(shù)...
2006-11-11
VBScript教程第二課在HTML頁(yè)面中添加VBscript代碼
VBScript教程第二課在HTML頁(yè)面中添加VBscript代碼...
2006-11-11