 
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對象

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