[系统相关] 如何通过批处理获取显示器当前的分辨率呢？

zbo103

大家好！请教一下大家如何通过bat获取显示器当前的分辨率呢？

pcl_test

vbs

'一
Set html=CreateObject("HtmlFile")
Set screen=html.ParentWindow.Screen
Msgbox screen.width &" "& screen.height

'二
Set wmi = GetObject("winmgmts:\\.\root\cimv2")
Set Items = wmi.ExecQuery("Select * from Win32_DesktopMonitor")
For Each Item in Items
    If Item.ScreenHeight <>"" and Item.ScreenWidth <>"" Then
        Msgbox  Item.ScreenWidth&" "& Item.ScreenHeight
    End If
Next

'三
Set ie = CreateObject("InternetExplorer.Application")
ie.Navigate "about:blank"
Set screen=ie.Document.parentWindow.screen
Msgbox screen.width &" "& screen.height
复制代码

zqz0012005

mshta vbscript:prompt("",screen.Width^&" "^&screen.Height)(close)
复制代码

mshta "javascript:prompt('',screen.Width+' '+screen.Height);close();"
复制代码

[ 本帖最后由 zqz0012005 于 2009-4-13 23:12 编辑 ]

tireless

@echo off
for /f "tokens=1,3 eol=H skip=8" %%a in ('reg query hkcc\system\currentcontrolset\control\video /s') do (
  if /i "%%a"=="DefaultSettings.XResolution" (set /a X=%%b) else (
    if /i "%%a"=="DefaultSettings.YResolution" set /a Y=%%b
  )
)
echo %x%*%y%
pause
复制代码

zqz0012005

wmic desktopmonitor get ScreenWidth,ScreenHeight
复制代码