set/=請輸入內網網關：set/pdns1=請輸入你的首選DNS：set/pdns2=請輸入你的備用DNS：%%>info.%dns1%>>info.%dns2%>>info....set /p =請輸入內網網關：
set /p dns1=請輸入你的首選DNS：
set /p dns2=請輸入你的備用DNS：
echo %% >info.txt
echo DNS1 %dns1% >>info.txt
echo DNS2 %dns2% >>info.txt
echo MACIP計算機名 >>info.txt
set rc=0
set /p ipq=請輸入內網IP的前3位（如192.168.0）：
set /p iph=請輸入你要掃描的IP起始段（IP的最后一位）：
set /p con1=請輸入你要掃描的數量：
set /a con= %iph%+%con1%
:scan
set ip=%ipq%.%iph%
ping -n 1 -w 1 %ip% >nul
title 正在檢測 %ip% 制作
if %% GEQ 1 goto dz
for /f "=1" %%i in (' -a %ip% ^| find /i "" ^| find /i "00"') do set =%%i
for /f "=4" %%i in (' -a %ip% ^| find /i "MAC "') do set mac=%%i
echo %mac% %ip%%% >>info.txt
set /a iph=%iph%+1
set /a rc=%rc%+1
if %iph% GTR %con% goto end
goto scan
:dz
echo %ip%不在線給電腦修改ip地址的批處理，無法掃描！
set /a iph=%iph%+1
if %iph% GTR %con% goto end
goto scan
:end
title 掃描完畢 制作
echo 掃描完畢!!
@echo 共掃描%con%臺PC。其中%rc%臺PC在線!!
pause
echo off
for /f "=2" %%i in (' /r /i "dns1" info.txt')do Set dns1=%%i
for /f "=2" %%i in (' /r /i "dns2" info.txt')do Set dns2=%%i
for /f "=2" %%i in (' /r /i "" info.txt')do Set =%%i
for /f "=2 =:" %%i in (' /all ^| find /i " "')do Set mac=%%i
for /f "=2,3 " %%i in (' /r /i "%mac%" info.txt') do set ip=%%i & set =%%j
for /f "=4,5 =. " %%i in (' /r /i "%mac%" info.txt')do Set /a =%%i+%%j
::判斷本地連接 賦值lj
for /f "=3 =: " %%i in (' ^| /r ""') do set lj=%%i
@echo 本地連接名為：%lj%
@echo 本機IP為：%ip%
@echo 本機計算機名為：%%
@echo 本機首選DNS為：%dns1%
@echo 本機備用DNS為：%dns2%
@echo 內網網關為：%%
@echo 本地網絡號為：%%
@echo 正在修改IP等信息。。。。
ping 127.0.0.1 -n 2 >nul
netsh ip set = addr=%ip% mask=255.255.255.0 =%%=1
netsh ip set dns = addr=%dns1%
netsh ip add dns "%lj%" %dns2% index=2
REG add "HKLM\\\\\" /v /t /d %% /f
::更改計算機名
reg add "HKLM\\\\\" /v /t /d %% /f
REG add "HKLM\\\\Tcpip\" /v "" /t /d %% /f
REG add "HKLM\\\\Tcpip\" /v "NV " /t /d %% /f
雙網卡，一個本地連接（網關 192.168.1.1 ） 另一個 本地連接 2 （網關192.168.0.1）
本地連接 2 修改不了給電腦修改ip地址的批處理，如圖 分不多，請見諒，另外求一個可以用批處理保存ADSL帳號和密碼或導入