Question

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

@echo off & title 获取本机简要配置信息 By 依梦琴瑶

::设置信息保存路径
set Log=C:\某个文件夹\本机简要配置信息.txt

echo WScript.Echo Wscript.Arguments(0) / (1024 * 1024 * 1024)>Calculation.vbs
echo 正在获取信息中 ...
(for /f "tokens=2 delims==" %%a in ('wmic csproduct get Name /value ^| findstr /i "Name"') do echo 电脑型号：%%~a
for /f "tokens=2 delims==" %%a in ('wmic csproduct get Vendor /value ^| findstr /i "Vendor"') do echo 制 造 商：%%~a
for /f "tokens=2 delims==" %%a in ('wmic csproduct get IdentifyingNumber /value ^| findstr /i "IdentifyingNumber"') do echo SN序列号：%%~a
echo 登 录 名：%USERNAME%
echo 计算机名：%COMPUTERNAME%
for /f "tokens=2 delims==" %%a in ('wmic cpu get Name /value ^| findstr /i "Name"') do echo 处 理 器：%%~a
for /f "tokens=2 delims==" %%a in ('wmic memorychip get Capacity /value ^| findstr /i "Capacity"') do (
for /f "tokens=1 delims=." %%b in ('cscript /nologo Calculation.vbs "%%~a"') do set /a m+=%%~b
)
call echo 内存容量：%%m%% GB
for /f "tokens=2 delims==" %%a in ('wmic DiskDrive get Size /value ^| findstr /i "Size"') do (
for /f "tokens=1 delims=." %%b in ('cscript /nologo Calculation.vbs "%%~a"') do set /a d+=%%~b
)
call echo 硬盘容量：%%d%% GB
for /f "tokens=2 delims==" %%a in ('wmic nic where "netconnectionid!=NULL" get macaddress /value ^| findstr /i "MACAddress"') do echo MAC 地址：%%~a)>"%Log%"
del Calculation.vbs
echo 信息获取，并保存。
pause

这是您以前写的一个，我想增加一条显卡，麻烦您了

Answer 1

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

Answer 2

真搞不懂您，向我发起求助，却采纳一个答非所问的回答，这是在耍我呢？还是觉得我好欺负？我是回答呢？还是放弃？