纯批处理获取硬件信息的代码_DOS/BAT_

 @echo off mode con cols=82 lines=25 Setlocal EnableDelayedExpansion call :Inspect title 获取硬件信息 - 正在获取相关信息，请稍等... echo !Tit! echo ............................................................. echo. DxDiag /t %Temp%\Dxdiag.dll Ping www.baidu.com>nul if %errorlevel%==0 set NetWorking=已联网 if %errorlevel%==1 set NetWorking=未联网 :DxDiag if exist "%Temp%\Dxdiag.dll" ( for /f "tokens=2 delims=:" %%i in ('Findstr /IC:"Operating System: " %Temp%\Dxdiag.dll') do ( for /f "delims=(" %%j in ("%%i") do set OS=%%j ) ) else ( Goto :DxDiag ) title 获取硬件信息 - %OS% for /f "tokens=2 delims=:" %%i in ('Findstr /IC:"Processor: " %Temp%\Dxdiag.dll') do set CPU=%%i for /l %%i in (256 -1 0) do if "!CPU:~%%i,1!"=="" set CPU.Len=%%i if %CPU.Len% gtr 67 set CPU= %CPU:~0,60% ... echo.CPU .......%CPU% echo. for /f "skip=2 tokens=2 delims==" %%i in ('Wmic BaseBoard get Manufacturer^,Product^,SerialNumber^,Version /value 2^>nul') do ( set /a Row+=1 if !Row! == 1 set Manufacturer=%%i if !Row! == 2 set Product=%%i if !Row! == 3 set SerialNumber=%%i if !Row! == 4 set Version=%%i ) set Row=0 for /f "skip=2 tokens=2 delims==" %%i in ('Wmic bios get InstallableLanguages^,ReleaseDate^,SMBIOSBIOSVersion /value 2^>nul') do ( set /a Row+=1 if !Row! == 1 set InstallableLanguages=%%i if !Row! == 2 set ReleaseDate=%%i if !Row! == 3 set SMBIOSBIOSVersion=%%i ) set Row=0 for /f "skip=2 tokens=2 delims==" %%i in ('Wmic Memphysical Get MaxCapacity^,MemoryDevices /Value 2^>nul') do ( set /a Row+=1 if !Row! == 1 set MaxCapacity=%%i if !Row! == 2 set MemoryDevices=%%i ) for /f "skip=2 tokens=2 delims==" %%i in ('Wmic Csproduct get Uuid /Value 2^>nul') do set Uuid=%%i if "%Version%"==" " set Version=无 if "%SerialNumber%"==" " set SerialNumber=无 set /a MaxCapacity=!MaxCapacity!/1048576 set MaxCapacity=!MaxCapacity! GB set MemoryDevices=!MemoryDevices! 个 set InstallableLanguages=!InstallableLanguages! 国语言 set ReleaseDate=%ReleaseDate:~0,4% 年 %ReleaseDate:~4,2% 月 %ReleaseDate:~6,2% 日 if "%Uuid%" == "00000000-0000-0000-0000-000000000000" set Uuid=主板维修过 if /i "%Manufacturer:~0,3%" == "MSI" set Manufacturer=微星 if /i "%Manufacturer:~0,4%" == "ASUS" set Manufacturer=华硕 if /i "%Manufacturer:~0,4%" == "TIMI" set Manufacturer=小米 if /i "%Manufacturer:~0,4%" == "SOYO" set Manufacturer=梅捷 if /i "%Manufacturer:~0,4%" == "ONDA" set Manufacturer=昂达 if /i "%Manufacturer:~0,5%" == "SUPOX" set Manufacturer=磐正 if /i "%Manufacturer:~0,5%" == "PCASL" set Manufacturer=翔升 if /i "%Manufacturer:~0,5%" == "INTEL" set Manufacturer=英特尔 if /i "%Manufacturer:~0,6%" == "MAXSUN" set Manufacturer=铭瑄 if /i "%Manufacturer:~0,6%" == "LENOVO" set Manufacturer=联想 if /i "%Manufacturer:~0,6%" == "ASROCK" set Manufacturer=华擎 if /i "%Manufacturer:~0,6%" == "GALAXY" set Manufacturer=影驰 if /i "%Manufacturer:~0,7%" == "TOSHIBA" set Manufacturer=东芝 if /i "%Manufacturer:~0,7%" == "BIOSTAR" set Manufacturer=映泰 if /i "%Manufacturer:~0,8%" == "GIGABYTE" set Manufacturer=技嘉 if /i "%Manufacturer:~0,8%" == "COLORFUL" set Manufacturer=七彩虹 if /i "%Manufacturer:~0,8%" == "SAPPHIRE" set Manufacturer=蓝宝石 if /i "%Manufacturer:~0,8%" == "MECHREVO" set Manufacturer=机械格命 if /i "%Manufacturer:~0,10%" == "SUPERMICRO" set Manufacturer=超微 echo.主板 ....... %Manufacturer% %Product% echo. for /f "tokens=2 delims==" %%i in ('Wmic Path Win32_PhysicalMemory Get BankLabel /value 2^>nul') do set /a MemoryQuantity+=1 set MemorySize=0 for /f "tokens=3 delims=:" %%i in ('Find /c /v "" %0') do set /a H.Size=%%i for /f "tokens=2 delims==" %%i in ('Wmic Path Win32_PhysicalMemory Get Capacity /value 2^>nul') do ( set Capacity=%%i call :Addition !Capacity! !MemorySize! MemorySize ) call :GetSize !MemorySize! MemorySize if not !H.Size!==1069 Goto :Eof if "!MemorySize:~-5,3!"==".00" set MemorySize=!MemorySize:~0,-5! !MemorySize:~-2! if "!MemorySize!"=="EB" Goto :Eof echo.内存 ....... %MemoryQuantity% 条 %MemorySize% echo. for /f "tokens=2 delims==" %%i in ('Wmic DiskDrive Get Model /Value^|Find /i /v "USB"') do ( set /a HdQuantity+=1 if !HdQuantity! == 1 set FirstDisk=%%i ) echo.硬盘 ....... %HdQuantity% 块 %FirstDisk% (主) echo. set Row=0 for /f "skip=2 tokens=2 delims==" %%i in ('Wmic Path Win32_VideoController Get Name^,AdapterRam^,DriverDate^,DriverVersion^,VideoProcessor^,MaxRefreshRate^,MinRefreshRate^,VideoProcessor^,CurrentBitsPerPixel^,CurrentRefreshRate^,CurrentHorizontalResolution^,CurrentVerticalResolution /Value 2^>nul') do ( set /a Row+=1 if !Row! == 1 set AdapterRAM=%%i if !Row! == 2 set CurrentBitsPerPixel=%%i if !Row! == 3 set CurrentHorizontalResolution=%%i if !Row! == 4 set CurrentRefreshRate=%%i if !Row! == 5 set CurrentVerticalResolution=%%i if !Row! == 6 set DriverDate=%%i if !Row! == 7 set DriverVersion=%%i if !Row! == 8 set MaxRefreshRate=%%i if !Row! == 9 set MinRefreshRate=%%i if !Row! == 10 set VideoName=%%i if !Row! == 11 set VideoProcessor=%%i ) if "%CurrentBitsPerPixel%" == "" ( set Row=0 for /f "skip=15 tokens=2 delims==" %%i in ('Wmic Path Win32_VideoController Get Name^,AdapterRam^,DriverDate^,DriverVersion^,VideoProcessor^,MaxRefreshRate^,MinRefreshRate^,VideoProcessor^,CurrentBitsPerPixel^,CurrentRefreshRate^,CurrentHorizontalResolution^,CurrentVerticalResolution /Value 2^>nul') do ( set /a Row+=1 if !Row! == 1 set AdapterRAM=%%i if !Row! == 2 set CurrentBitsPerPixel=%%i if !Row! == 3 set CurrentHorizontalResolution=%%i if !Row! == 4 set CurrentRefreshRate=%%i if !Row! == 5 set CurrentVerticalResolution=%%i if !Row! == 6 set DriverDate=%%i if !Row! == 7 set DriverVersion=%%i if !Row! == 8 set MaxRefreshRate=%%i if !Row! == 9 set MinRefreshRate=%%i if !Row! == 10 set VideoName=%%i if !Row! == 11 set VideoProcessor=%%i ) ) if "!AdapterRAM:~0,1!" == "-" set AdapterRAM=%AdapterRAM:~1% call :GetSize !AdapterRAM! AdapterRAM if "!AdapterRam:~-5,3!"==".00" set AdapterRam=!AdapterRam:~0,-5! !AdapterRam:~-2! set DriverDate=%DriverDate:~0,4% 年 %DriverDate:~4,2% 月 %DriverDate:~6,2% 日 set "Resolution=%CurrentHorizontalResolution% x %CurrentVerticalResolution% (%CurrentBitsPerPixel% bit) (%CurrentRefreshRate% Hz)" echo.显卡 ....... %VideoName% %AdapterRAM% echo. set Row=0 for /f "skip=2 tokens=2 delims==" %%i in ('Wmic DesktopMonitor Get PNPDeviceID^,PixelsPerXLogicalInch /Value 2^>nul') do ( set /a Row+=1 if !Row! == 1 set PixelsPerXLogicalInch=%%i if !Row! == 2 set PNPDeviceID=%%i ) for /f "delims=\ tokens=2" %%i in ("!PNPDeviceID!") do set DisplayName=%%i if "%DisplayName%"=="" (echo.屏幕 ....... !Resolution!) else (echo.屏幕 ....... !DisplayName! !Resolution!) echo. set Row=0 for /f "tokens=2 delims==" %%i in ('Wmic Path Win32_CDRomDrive Get Name^,MediaLoaded /Value 2^>nul') do ( set /a Row+=1 if !Row! == 1 set MediaLoaded=%%i if !Row! == 2 set CD-ROM.Name=%%i ) if "%CD-ROM.Name%"=="" (set CD-ROM.Name=无) else (if /i "%MediaLoaded%"=="TRUE" set "MediaLoaded=(有盘)" if /i "%MediaLoaded%"=="FALSE" set "MediaLoaded=(空)") echo.光驱 ....... %CD-ROM.Name% %MediaLoaded% echo. set Row=0 for /f "tokens=2 delims=:" %%i in ('Findstr /IC:"Description: " %Temp%\Dxdiag.dll') do ( set /a Row+=1 if !Row! == 1 set Description=%%i ) echo 声卡 .......%Description% (输出) echo. set Row=0 for /f "skip=2 tokens=2 delims==" %%i in ('Wmic Path Win32_NetworkAdapterConfiguration WHERE "IPEnabled='TRUE'" get IPAddress^,IPSubnet^,MACAddress^,DefaultIPGateway^,Caption /value 2^>nul') do ( set /a Row+=1 if !Row! == 1 set NetName=%%i if !Row! == 2 set DefaultIPGateway=%%i if !Row! == 3 set IP=%%i if !Row! == 4 set IPSubnet=%%i if !Row! == 5 set MACAddress=%%i ) if "%DefaultIPGateway%" == "" ( set Row=0 for /f "skip=2 tokens=2 delims==" %%i in ('Wmic Path Win32_NetworkAdapterConfiguration WHERE "DHCPEnabled='TRUE'" get IPAddress^,IPSubnet^,MACAddress^,DefaultIPGateway^,Caption /value 2^>nul') do ( set /a Row+=1 if !Row! == 1 set NetName=%%i if !Row! == 2 set DefaultIPGateway=%%i if !Row! == 3 set IP=%%i if !Row! == 4 set IPSubnet=%%i if !Row! == 5 set MACAddress=%%i ) ) if "%DefaultIPGateway%" == "" ( set Row=0 for /f "skip=9 tokens=2 delims==" %%i in ('Wmic Path Win32_NetworkAdapterConfiguration WHERE "DHCPEnabled='TRUE'" get IPAddress^,IPSubnet^,MACAddress^,DefaultIPGateway^,Caption /value 2^>nul') do ( set /a Row+=1 if !Row! == 1 set NetName=%%i if !Row! == 2 set DefaultIPGateway=%%i if !Row! == 3 set IP=%%i if !Row! == 4 set IPSubnet=%%i if !Row! == 5 set MACAddress=%%i ) ) if "%DefaultIPGateway%" == "" ( set Row=0 for /f "skip=16 tokens=2 delims==" %%i in ('Wmic Path Win32_NetworkAdapterConfiguration WHERE "DHCPEnabled='TRUE'" get IPAddress^,IPSubnet^,MACAddress^,DefaultIPGateway^,Caption /value 2^>nul') do ( set /a Row+=1 if !Row! == 1 set NetName=%%i if !Row! == 2 set DefaultIPGateway=%%i if !Row! == 3 set IP=%%i if !Row! == 4 set IPSubnet=%%i if !Row! == 5 set MACAddress=%%i ) ) if "%DefaultIPGateway%" == "" ( set IP=未联网 set IPSubnet=未联网 set DefaultIPGateway=未联网 ) if "%MACAddress%" == "" set MACAddress=网卡已被禁用 for /f "tokens=2 delims=]" %%i in ("!NetName!") do set NetName=%%i if "!NetName:~0,1!" == " " set NetName=!NetName:~1! for /f "delims=," %%i in ("!IP!") do set IP=%%i for /f "delims=," %%i in ("!IPSubnet!") do set IPSubnet=%%i set IP=!IP:"=! set IP=!IP:{=! set IP=!IP:}=! set IPSubnet=!IPSubnet:"=! set IPSubnet=!IPSubnet:{=! set IPSubnet=!IPSubnet:}=! set DefaultIPGateway=!DefaultIPGateway:{"=! set DefaultIPGateway=!DefaultIPGateway:"}=! echo 网卡 ....... %NetName% (%NetWorking%) echo. echo. set /p 540044977=若要生成详细的电脑配置信息文件请直接回车： Title 获
                
提示：
                    本文由神整理自网络，如有侵权请联系本站删除！
                    

                    本站声明： 

                    1、本站所有资源均来源于互联网，不保证100%完整、不提供任何技术支持； 

                    2、本站所发布的文章以及附件仅限用于学习和研究目的;不得将用于商业或者非法用途；否则由此产生的法律后果，本站概不负责！
                
                

                

                                            
上一篇：批处理版chm文件反编译器 v1.3_DOS/BAT_
                                                                
下一篇：批处理万年历实现代码(包括农历日期)_DOS/BAT_