@ echo off

color 2

%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit

cd /d "%~dp0"

echo 开启telnet

dism /Online  /Enable-Feature /FeatureName:TelnetClient

echo telnet已开启

C:

cd  ..

cd  ..

cd ..

ipconfig /all  >>result_2021.txt 

echo ip地址已获取

systeminfo >>result_2021.txt

echo  系统信息已获取

ping -n3  127.0.0.1 > nul

echo ping,tracert,telnet测试

for /l %%a in (1,1,210,14) do (

    ping 172.16.14.%%a >>result_2021.txt

    tracert  -d  172.16.14.%%a >>result_2021.txt

)

echo "测试完成"

color 1

exit