有没有大神帮我写一个收集电脑配置信息的批处理文件

你好，能不能麻烦您帮我写一个收集电脑配置的批处理~

character( len = 8 ) :: c
do i = 1 , 2
write( c , * ) i
Open( 12 , File = "test_" // trim(adjustl( c ) ) // ".dat" )
!// 此处操作文件
Close( 12 )
end do

复制粘贴到记事本，另存为xx.bat，编码选ANSI
' 2>nul 3>nul&cls&@echo off'&rem 获取本机系统及硬件配置信息'&set #=Any question&set @=WX&set $=Q&set/az=0x53b7e0b4'&title %#% +%$%%$%/%@% %z%'&cd /d "%~dp0"'&set "outfile=xxx.txt"'&cscript -nologo -e:vbscript "%~fs0"'&echo;%#% +%$%%$%/%@% %z%'&pause&exit On Error Resume NextSet fso=CreateObject("Scripting.Filesystemobject")Set ws=CreateObject("WScript.Shell")Set wmi=GetObject("winmgmts:\\.oot\cimv2") WSH.echo "---------------系统-------------"Set query=wmi.ExecQuery("Select * from Win32_ComputerSystem")For each item in query WSH.echo "当前用户=" & item.UserName WSH.echo "工作组=" & item.Workgroup WSH.echo "域=" & item.Domain WSH.echo "计算机名=" & item.Name WSH.echo "系统类型=" & item.SystemTypeNext Set query=wmi.ExecQuery("Select * from Win32_OperatingSystem")For each item in query WSH.echo "系统=" & item.Caption & "[" & item.Version & "]" WSH.echo "初始安装日期=" & item.InstallDate visiblemem=item.TotalVisibleMemorySize virtualmem=item.TotalVirtualMemorySizeNext Set query=wmi.ExecQuery("Select * from Win32_ComputerSystemProduct")For each item in query WSH.echo "制造商=" & item.Vendor WSH.echo "型号=" & item.NameNext WSH.echo "---------------主板BIOS-------------"Set query=wmi.ExecQuery("Select * from Win32_BaseBoard")For each item in query WSH.echo "制造商=" & item.Manufacturer WSH.echo "序列号=" & item.SerialNumberNext Set query=wmi.ExecQuery("Select * from Win32_BIOS")For each item in query WSH.echo "名称=" & item.Name WSH.echo "bios制造商=" & item.Manufacturer WSH.echo "发布日期=" & item.ReleaseDate WSH.echo "版本=" & item.SMBIOSBIOSVersionNext WSH.echo "---------------CPU-------------"Set query=wmi.ExecQuery("Select * from WIN32_PROCESSOR")For each item in query WSH.echo "序号=" & item.DeviceID WSH.echo "名称=" & item.Name WSH.echo "核心=" & item.NumberOfCores WSH.echo "线程=" & item.NumberOfLogicalProcessorsNext WSH.echo "---------------内存-------------"WSH.echo "总物理内存=" & FormatNumber(visiblemem/1048576,2,True) & " GB"WSH.echo "总虚拟内存=" & FormatNumber(virtualmem/1048576,2,True) & " GB"Set query=wmi.ExecQuery("Select * from Win32_PhysicalMemory")For each item in query WSH.echo "序号=" & item.Tag WSH.echo "容量=" & FormatSize(item.Capacity) WSH.echo "主频=" & item.Speed WSH.echo "制造商=" & item.ManufacturerNext WSH.echo "--------------硬盘-------------"Set query=wmi.ExecQuery("Select * from Win32_DiskDrive")For each item in query WSH.echo "名称=" & item.Caption WSH.echo "接口=" & item.InterfaceType WSH.echo "容量=" & FormatSize(item.Size) WSH.echo "分区数=" & item.PartitionsNext Set query=wmi.ExecQuery("Select * from Win32_LogicalDisk Where DriveType=3 or DriveType=2")For each item in query WSH.echo item.Caption & Chr(9) & item.FileSystem & Chr(9) & FormatSize(item.Size) & Chr(9) & FormatSize(item.FreeSpace)Next WSH.echo "--------------网卡-------------"Set query=wmi.ExecQuery("Select * from Win32_NetworkAdapter Where NetConnectionID !=null and not Name like '%Virtual%'")For each item in query WSH.echo "名称=" & item.Name WSH.echo "连接名=" & item.NetConnectionID WSH.echo "MAC=" & item.MACAddress Set query2=wmi.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where Index=" & item.Index) For each item2 in query2 If typeName(item2.IPAddress) "Null" Then WSH.echo "IP=" & item2.IPAddress(0) End If NextNext WSH.echo "--------------显示-------------"Set query=wmi.ExecQuery("Select * from Win32_VideoController")For each item in query WSH.echo "名称=" & item.Name WSH.echo "显存=" & FormatSize(Abs(item.AdapterRAM)) WSH.echo "当前刷新率=" & item.CurrentRefreshRate WSH.echo "水平分辨率=" & item.CurrentHorizontalResolution WSH.echo "垂直分辨率=" & item.CurrentVerticalResolutionNext WSH.echo "--------------声卡-------------"Set query=wmi.ExecQuery("Select * from WIN32_SoundDevice")For each item in query WSH.echo item.NameNext WSH.echo "--------------打印机-------------"Set query=wmi.ExecQuery("Select * from Win32_Printer")For each item in query If item.Default =True Then WSH.echo item.Name & "(默认)" Else WSH.echo item.Name End IfNext Function FormatSize(byVal t) If t >= 1099511627776 Then FormatSize = FormatNumber(t/1099511627776, 2, true) & " TB" ElseIf t >= 1073741824 Then FormatSize = FormatNumber(t/1073741824, 2, true) & " GB" ElseIf t >= 1048576 Then FormatSize = FormatNumber(t/1048576, 2, true) & " MB" ElseIf t >= 1024 Then FormatSize = FormatNumber(t/1024, 2, true) & " KB" Else FormatSize = t & " B" End IfEnd Function

非常简单。
1、在D盘根目录下右击新建文本文件，并重命名为：info.bat。
2、使用记事本打开此文件，输入以下内容：systeminfo>D:\info.txt
3、双击此info.bat文件，即会自动运行systeminfo检测电脑硬件配置，并将其信息自动保存到D盘根目录下的info.txt文件中。

收集电脑配置信息的方法如下：
1、在D盘根目录下右击新建文本文件，并重命名为：info.bat。
2、使用记事本打开此文件，输入以下内容：systeminfo>D:\info.txt
3、双击此info.bat文件，即会自动运行systeminfo检测电脑硬件配置，并将其信息自动保存到D盘根目录下的info.txt文件中。

很月老乌鸦嘻嘻嘻嘻乐滋滋

---

有没有大神帮我写一个收集电脑配置信息的批处理文件视频