一种是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
参考链接
原文:http://demon.tw/programming/vbs-picture-resolution.html
您可能感兴趣的文章:
如您对本文有疑问或者有任何想说的,请点击进行留言回复,万千网友为您解惑!
网友评论