echo.关于显示器的详细信息如下：>>!File!
echo.>>!File!
for /f "tokens=3" %%i in ('Reg Query "HKLM\System\CurrentControlSet\Enum\Display\!5!\!6!\Device Parameters" /v "Edid" 2^>nul') do (
	set Edid=%%i
)
if "%Edid%" == "" (for /f "tokens=3" %%i in ('Reg Query "HKLM\System\CurrentControlSet\Enum\Display\!5!" /s 2^>nul ^|findstr /i "Edid"') do (set Edid=%%i))
if "%DisplayName%" == "" set DisplayName=!NoGet!
echo.    型号 ........... : %DisplayName%>>!File!
echo.>>!File!
if not "%Edid%" == "" (
	set Yeardata=!Edid:~34,2!
	set Weekdata=!Edid:~32,2!
	set Longdata=!Edid:~42,2!
	set Widedata=!Edid:~44,2!
	set /a Weekdata=0X!Weekdata!*1
	set /a Longdata=0X!Longdata!*1
	set /a Widedata=0X!Widedata!*1
	set /a Yeardata=0X!Yeardata!*1+1990
	call :Division !Longdata! 2.54 Longdata.in
	call :Division !Widedata! 2.54 Widedata.in
	call :Times !Longdata.in! !Longdata.in! Longdata.in
	call :Times !Widedata.in! !Widedata.in! Widedata.in
	call :Addition !Longdata.in! !Widedata.in! Diagonal
	set "Code=CreateObject("Scripting.FileSystemObject").GetStandardStream(1).Write(sqr(!Diagonal!))(close)"
	for /f "delims=" %%i in ('Mshta "Vbscript:!Code!"') do set Screen.In=%%i
	for /f "tokens=1,2 delims=." %%i in ("!Screen.In!") do (
		set Screen.In=%%i
		set Screen.Io=%%j
	)
	set Screen.Io=!Screen.Io:~0,1!
	if !Screen.Io! geq 7 set /a Screen.In=!Screen.In!+1
	echo.    屏幕尺寸 ....... : !Screen.In! 英寸>>!File!
	echo.>>!File!
	echo.    生产日期 ....... : !Yeardata! 年 第 !Weekdata! 周>>!File!
	echo.>>!File!
	echo.    屏幕大小 ....... : !Longdata! 厘米 × !Widedata! 厘米>>!File!
	echo.>>!File!
)
if not defined PixelsPerXLogicalInch (set PixelsPerXLogicalInch=!NoGet!) else set PixelsPerXLogicalInch=!PixelsPerXLogicalInch! Dpi
echo.    像素密度 ....... : %PixelsPerXLogicalInch%>>!File!
echo.>>!File!
echo.    当前模式 ....... : %Resolution%>>!File!
if not "%CD-ROM.Name%" == "无" (
	echo.>>!File!
	echo.>>!File!
	echo.关于光驱的详细信息如下：>>!File!
	echo.>>!File!
	echo.  列出所有光驱: >>!File!
	echo.>>!File!
	echo.    盘符   类型       型号 >>!File!
	echo.>>!File!
	for /f  "skip=1 delims=" %%i in ('Wmic CdRom Get Name^,Drive^,Mediatype 2^>nul') do (
		set CdRom.0=%%i
		call :Exit
		if "!CdRom.0!" neq "" echo.    !CdRom.0!>>!File!
	)
)
echo.>>!File!
复制代码

@echo off
echo.关于显示器的详细信息如下：
DxDiag /t /Whql:off dxdiag.txt
for /f "tokens=2 delims=:" %%i in ('Findstr /IC:"Monitor Model:" Dxdiag.txt') do set "DisplayName=%%i"
if /i "%DisplayName%"==" Unknown" for /f "tokens=2 delims=:" %%i in ('Findstr /IC:"Monitor Id:" Dxdiag.txt') do set "DisplayName=%%i"
for /f "tokens=2" %%i in ('Wmic DesktopMonitor Get Availability^,PNPDeviceID 2^>nul') do set "PNPDeviceID=%%i"
if "%DisplayName%"=="" for /f "delims=\ tokens=2" %%i in ("%PNPDeviceID%") do set DisplayName=%%i
if "%DisplayName:~0,1%"==" " set DisplayName=%DisplayName:~1%
if not "%DisplayName%"=="" set DisplayName=%DisplayName:/=-%
echo.    型号 ........... : %DisplayName%
for /f "tokens=2 delims=:" %%i in ('Findstr /IC:"Current Mode:" Dxdiag.txt') do if /i not "%%i"==" Unknown" set Resolution=%%i
for /f "tokens=3" %%i in ('Reg Query "HKLM\System\CurrentControlSet\Enum\Display" /v "EDID" /s 2^>nul^|findstr /i "Edid"') do set Edid=%%i
set /a Yeardata=0x%Edid:~34,2%+1990
set /a Weekdata=0x%Edid:~32,2%
set /a Longdata=0x%Edid:~42,2%
set /a Widedata=0x%Edid:~44,2%
echo.    生产日期 ....... : %Yeardata% 年 第 %Weekdata% 周
set /a Diagonal=Longdata*Longdata+Weekdata*Widedata
for /f "delims=" %%i in ('Mshta "Vbscript:CreateObject("Scripting.FileSystemObject").GetStandardStream(1).Write(sqr(%Diagonal%)/2.54)(close)"') do set Screen.In=%%i
for /f "tokens=1,2 delims=." %%i in ("%Screen.In%") do set Screen.In=%%i&set Screen.Io=%%j
set Screen.Io=%Screen.Io:~0,1%
if %Screen.Io% geq 7 set /a Screen.In=%Screen.In%+1
echo.    屏幕尺寸 ....... : %Screen.In% 英寸
echo.    屏幕大小 ....... : %Longdata% 厘米 × %Widedata% 厘米
for /f "skip=2 tokens=2 delims==" %%i in ('Wmic DesktopMonitor Get PixelsPerXLogicalInch /Value 2^>nul') do set PixelsPerXLogicalInch=%%i
echo.    像素密度 ....... : %PixelsPerXLogicalInch% Dpi
echo.    当前模式 ....... :%Resolution%
pause
复制代码

@echo off
setlocal enabledelayedexpansion
echo 正在获取硬件基础信息（需要几分钟时间）
set "FileDX=%temp%\dxdiag.txt"
dxdiag /whql:off /t "%FileDX%"

echo 正在计算
for /f "tokens=2 delims=\" %%i in ('wmic DesktopMonitor Get PNPDeviceID 2^>nul ^| findstr "DISPLAY"') do (
    set "MonitorPNP=%%i"
)

for /f "tokens=2*" %%i in ('findstr /c:"Monitor Name:" "%FileDX%"') do (
    set "MonitorName=%%i"
)

for /f "tokens=2*" %%i in ('findstr /c:"Monitor Model:" "%FileDX%"') do (
    set "MonitorModel=%%j"
)
if /i "!MonitorModel!" equ "Unknown" (
    for /f "tokens=2*" %%i in ('findstr /c:"Monitor Id:" "%FileDX%"') do (
        set "MonitorModel=%%j"
    )
) else if "!MonitorModel!" equ "" (
    set "MonitorModel=!MonitorPNP!"
)

for /f "tokens=3" %%i in ('reg query "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Enum\DISPLAY\!MonitorPNP!" /s ^| findstr "EDID"') do (
    set "MonitorEDID=%%i"
)
set "YearNum=!MonitorEDID:~34,2!"
set "WeekNum=!MonitorEDID:~32,2!"
set "HeightNum=!MonitorEDID:~42,2!"
set "WidthNum=!MonitorEDID:~44,2!"
set /a WeekNum=0x!WeekNum!*1
set /a YearNum=0x!YearNum!*1+1990
set /a HeightNum=0x!HeightNum!*1
set /a WidthNum=0x!WidthNum!*1
for /f %%i in ('powershell "[Math]::Round([Math]::Sqrt([Math]::Pow(!HeightNum!,2)+[Math]::Pow(!WidthNum!,2))*0.3937,1)"') do (
    set "MonitorSizeInch=%%i"
)

for /f "tokens=4" %%i in ('findstr /c:"User DPI Setting:" "%FileDX%"') do (
    set "MonitorDPI=%%i"
)

for /f "tokens=2*" %%i in ('findstr /c:"Native Mode:" "%FileDX%"') do (
    set "MonitorNative=%%j"
)

cls
echo 名    称 : !MonitorName!
echo 型    号 : !MonitorModel!
echo 屏幕尺寸 : !HeightNum! X !WidthNum! 厘米 (!MonitorSizeInch! 英寸)
echo 生产日期 : !YearNum!年第!WeekNum!周
echo 像素密度 : !MonitorDPI! DPI
echo 当前模式 : !MonitorNative!
pause
复制代码

@powershell -ExecutionPolicy bypass "Get-WmiObject -Class Win32_DesktopMonitor|ft -AutoSize -Wrap"
复制代码

@echo off
DumpEDID.exe -a
pause
复制代码