win7批处理自动修改本地IP地址、无线IP地址

@echo off
title 快运通物流 &＃8211; IP地址修改工具
MODE con: COLS=80 lines=20

rem IP地址列表

set lname=本地连接
rem 本地连接IP地址一 公司IP地址
set lAdd1=192.168.2.52
set lmask1=255.255.252.0
set lGat1=192.168.1.1
set ldns11=202.96.134.133
set ldns12=202.96.128.86
rem 本地连接IP地址二 家庭IP地址
set lAdd2=192.168.3.230
set lmask2=255.255.0.0
set lGat2=192.168.1.250
set ldns21=202.96.134.133
set ldns22=202.96.128.86

set wname=无线网络连接
rem 无线连接IP地址一 公司IP地址
set wAdd1=%lAdd1%
set wmask1=%lmask1%
set wGat1=%lGat1%
set wdns11=%ldns11%
set wdns12=%ldns12%
rem 无线连接IP地址二 家庭IP地址
set wAdd2=%lAdd2%
set wmask2=%lmask2%
set wGat2=%lGat2%
set wdns21=%ldns21%
set wdns22=%ldns21%

:home
cls
@echo.
@echo      快运通物流 &＃8211; IP地址修改工具    （ KYT &＃8212; PanFu ）
@echo.
@echo           1：设置 %lname%
@echo           2：设置 %wname%
@echo.
@echo 警告：WIN7系统必须 单击右键 [以管理员身份运行(A)] ！
@echo.
@echo.
set shut=&＃8221;&＃8221;
set /p shut=&＃8221;请输入 【<1> 或 <2> 或 退出】 并按回车键 :&＃8221;
IF NOT &＃8220;%shut%&＃8221;==&＃8221;&＃8221; (
if %shut% NEQ &＃8220;&＃8221; SET shut=%shut:~0,1%
) else (
set shut=&＃8221;&＃8221;)
if /i %shut%==1 goto locally
if /i %shut%==2 goto wireless
if /i %shut%==q exit
goto home

:locally
cls
@echo.
@echo      修改 %lname% IP地址      （ KYT &＃8212; PanFu ）
@echo.
@echo           1：设置 %lname% 自动获取IP地址
@echo           2：设置 %lname% IP地址为公司IP %lAdd1%
@echo           3：设置 %lname% IP地址为专用IP %lAdd2%
@echo.
@echo.
set shut=&＃8221;&＃8221;
set /p shut=&＃8221;请输入 【<1> 或 <2> 或 <3> 或 退出】 并按回车键 或者 按<回车键>返回主菜单 :&＃8221;
IF NOT &＃8220;%shut%&＃8221;==&＃8221;&＃8221; (
if %shut% NEQ &＃8220;&＃8221; SET shut=%shut:~0,1%
) else (
set shut=&＃8221;&＃8221;)
if /i %shut%==1 goto locallyone
if /i %shut%==2 goto locallytwo
if /i %shut%==3 goto locallythree
if /i %shut%==q exit
goto home

:wireless
cls
@echo.
@echo      修改 %wname% IP地址      （ KYT &＃8212; PanFu ）
@echo.
@echo           1：设置 %wname% 自动获取IP地址
@echo           2：设置 %wname% IP地址为公司IP %wAdd1%
@echo           3：设置 %wname% IP地址为专用IP %wAdd2%
@echo.
@echo.
set shut=&＃8221;&＃8221;
set /p shut=&＃8221;请输入 【<1> 或 <2> 或 <3> 或 退出】 并按回车键 或者 按<回车键>返回主菜单 :&＃8221;
IF NOT &＃8220;%shut%&＃8221;==&＃8221;&＃8221; (
if %shut% NEQ &＃8220;&＃8221; SET shut=%shut:~0,1%
) else (
set shut=&＃8221;&＃8221;)
if /i %shut%==1 goto wirelessone
if /i %shut%==2 goto wirelesstwo
if /i %shut%==3 goto wirelessthree
if /i %shut%==q exit
goto home

rem  设置 本地网络连接 开始
:locallyone
@echo.
@echo 正在设置 %lname% IP地址 请稍后。。。
call :autolocall %lname% >nul
@echo 设置 %lname% 自动获取IP地址成功！！
@echo.
@echo.
goto three

:locallytwo
@echo.
@echo 正在设置 %lname% IP地址 请稍后。。。
call :autowireless %wname% >nul
cmd /c netsh interface ip set address name=&＃8221;%lname%&＃8221; static %ladd1% %lmask1% %lGat1% >nul
cmd /c netsh interface ip add dns name=&＃8221;%lname%&＃8221; %ldns11% index=1 >nul
cmd /c netsh interface ip add dns name=&＃8221;%lname%&＃8221; %ldns12% index=2 >nul
@echo 设置 %lname% IP地址成功！！！
@echo.
@echo 当前IP地址：   %ladd1%
@echo 当前子网掩码： %lmask1%
@echo 当前默认网关： %lGat1%
@echo 当前DNS1地址：%ldns11%
@echo 当前DNS2地址：%ldns12%
@echo.
@echo.
goto three

:locallythree
@echo.
@echo 正在设置 %lname% IP地址 请稍后。。。
call :autowireless %wname% >nul
cmd /c netsh interface ip set address name=&＃8221;%lname%&＃8221; static %ladd2% %lmask2% %lGat2% >nul
cmd /c netsh interface ip add dns name=&＃8221;%lname%&＃8221; addr=%ldns21% index=1 >nul
cmd /c netsh interface ip add dns name=&＃8221;%lname%&＃8221; addr=%ldns22% index=2 >nul
@echo 设置 %lname% IP地址成功！！！
@echo.
@echo 当前IP地址：   %ladd2%
@echo 当前子网掩码： %lmask2%
@echo 当前默认网关： %lGat2%
@echo 当前DNS1地址：%ldns21%
@echo 当前DNS2地址：%ldns22%
@echo.
@echo.
goto three
:: 设置 本地网络连接 结束

::  设置 无线网络连接 开始
:wirelessone
@echo.
@echo 正在设置 %wname% IP地址 请稍后。。。
call :autowireless %wname% >nul
@echo 设置 %wname% 自动获取IP地址成功！！
@echo.
@echo.
goto three

:wirelesstwo
@echo.
@echo 正在设置 %wname% IP地址 请稍后。。。
call :autolocall %lname% >nul
cmd /c netsh interface ip set address name=&＃8221;%wname%&＃8221; static %wadd1% %wmask1% %wGat1% >nul
cmd /c netsh interface ip add dns name=&＃8221;%wname%&＃8221; %wdns11% index=1 >nul
cmd /c netsh interface ip add dns name=&＃8221;%wname%&＃8221; %wdns12% index=2 >nul
@echo 设置 %wname% IP地址成功！！！
@echo.
@echo 当前IP地址：   %wadd1%
@echo 当前子网掩码： %wmask1%
@echo 当前默认网关： %wGat1%
@echo 当前DNS1地址：%wdns11%
@echo 当前DNS2地址：%wdns12%
@echo.
@echo.
goto three

:wirelessthree
@echo.
@echo 正在设置 %wname% IP地址 请稍后。。。
call :autolocall %lname% >nul
cmd /c netsh interface ip set address name=&＃8221;%wname%&＃8221; static %wadd2% %wmask2% %wGat2% >nul
cmd /c netsh interface ip add dns name=&＃8221;%wname%&＃8221; %wdns121% index=1 >nul
cmd /c netsh interface ip add dns name=&＃8221;%wname%&＃8221; %wdns122% index=2 >nul
@echo 设置 %wname% IP地址成功！！！
@echo.
@echo 当前IP地址：   %wadd2%
@echo 当前子网掩码： %wmask2%
@echo 当前默认网关： %wGat2%
@echo 当前DNS1地址：%wdns21%
@echo 当前DNS2地址：%wdns22%
@echo.
@echo.
goto three
:: 设置 无线网络连接 结束

:three
::pause >nul
set shut=&＃8221;&＃8221;
set /p shut=&＃8221;请输入 【返回主菜单】 或者 按<其他键>退出:&＃8221;
IF NOT &＃8220;%shut%&＃8221;==&＃8221;&＃8221; (
if %shut% NEQ &＃8220;&＃8221; SET shut=%shut:~0,1%
) else (
set shut=&＃8221;&＃8221;)
if /i %shut%==a goto home
exit

:autolocall
cmd /c netsh interface ip set address name=&＃8221;%lname%&＃8221; static 0.0.0.0  0.0.0.0  0.0.0.0 >nul
cmd /c netsh interface ip set address name=&＃8221;%lname%&＃8221; source=dhcp >nul
cmd /c netsh interface ip set dns name=&＃8221;%lname%&＃8221; source=dhcp >nul
::@echo 设置 %lname% 自动获取IP地址成功！
goto :eof

:autowireless
cmd /c netsh interface ip set address name=&＃8221;%wname%&＃8221; static 0.0.0.0  0.0.0.0  0.0.0.0 >nul
cmd /c netsh interface ip set address name=&＃8221;%wname%&＃8221; source=dhcp >nul
cmd /c netsh interface ip set dns name=&＃8221;%wname%&＃8221; source=dhcp >nul
::@echo 设置 %wname% 自动获取IP地址成功！
goto :eof