[原创]我也发个自动改IP工具 - DOS批处理 & 脚本技术（批处理室） - 中国DOS联盟论坛

setlocal EnableDelayedExpansion
:_interface
for /f "tokens=1* delims=:" %%i in ('ipconfig /all^|find /i "Physical Address"') do set mac=%%j
for /f "tokens=1" %%i in ('type mac.txt^|find /i "%mac:~-18%"') do set ip=%%i
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "mask"') do set mask=%%j
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "gateway"') do set gw=%%j
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "dns1"') do set dns1=%%j
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "dns2"') do set dns2=%%j

:_inspect1
if %ip%=="" (set err=无法从文件中获取与MAC地址相对应的IP地址,请检查mac.txt文件的完整性 && goto _error)

:_hostname
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "每段最大IP数"') do set dw=%%j
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "开始段位"') do set ks=%%j
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "excursion"') do set excursion=%%j
for /f "eol=# tokens=2,3* delims=." %%a in ('echo %ip%') do (set /a num=%%c+%%b*%dw%-%dw%*%ks%+%

excursion%)
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "prefix"') do set prefix=%%j
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "机号位数"') do set ws=%%j
set name=00000%num%
set name=!name:~-%ws%!
goto _setup

:_setup
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v

ComputerName /t reg_sz /d %prefix%%name% /f
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t

reg_sz /d %prefix%%name% /f
reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v Hostname /t reg_sz

/d %prefix%%name% /f
reg add "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\NwlnkIpx\Parameters" /v

VirtualNetworkNumber /t reg_dword /d %num% /f
netsh interface ip set address name="本地连接" source=static addr=%ip% mask=%MASK%
netsh interface ip set address name="本地连接" gateway=%gw% gwmetric=0
netsh interface ip set dns name="本地连接" source=static addr=%dns1% register=PRIMARY
netsh interface ip add dns name="本地连接" addr=%DNS2% index=2

:_print
for /f "tokens=1* delims=:" %%i in ('ipconfig /all^|find /i "IP Address"') do set ip=%%j
for /f "tokens=1* delims=:" %%i in ('ipconfig /all^|find /i "Physical Address"') do set mac=%%j
for /f "tokens=1* delims=:" %%i in ('ipconfig /all^|find /i "Subnet Mask"') do set mask=%%j
for /f "tokens=1* delims=:" %%i in ('ipconfig /all^|find /i "Default Gateway"') do set gw=%%j

echo Tools Name: daker's ipconfig tool>%temp%\print.txt
echo Author: Daker>>%temp%\print.txt
echo Version:1.2>>%temp%\print.txt
echo tel:13991925859>>%temp%\print.txt
echo e-mail:daker@126.com>>%temp%\print.txt
echo ##########################>>%temp%\print.txt
echo hostname:sa-%name%>>%temp%\print.txt
echo ip:%ip%>>%temp%\print.txt
echo mac:%mac%>>%temp%\print.txt
echo ntemask:%mask%>>%temp%\print.txt
echo gateway:%gw%>>%temp%\print.txt
echo dns:%dns1%,%dns2%>>%temp%\print.txt
echo ##########################>>%temp%\print.txt
start %temp%\print.txt

:_delete
set ip=
set mac=
set gw=
set dns1=
set dns2=
set name=
set num=
set n3=
set excursion=
set prefix=
for /f "eol=# tokens=1* delims=:" %%i in ('type address.ini^|find /i "delete"') do set onff=%%j
if %onff%==y (reg delete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /v

ipaddress /f)
del "%temp%"\*.bat /ah /q & exit

:_error
mshta vbscript:CreateObject("Wscript.Shell").popup("%err% ",10,"错误提示",64)(window.close)