cmd命令提示符配置切换IP地址

实现的功能是显示一个启动菜单，提供网卡IP地址设置功能，主要是我经常要在许多地方移动办公，用来解决快速切换IP地址的功能。

@echo off
cd /d %~dp0
%1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit 
@rem 以上是以管理员方式运行这个批处理，没撒子含义

title --IP自动设置 --
MODE con: COLS=80 lines=30
color 0a
  
:begin  
@rem cls  
echo 要把IP设置为自动获取 请按 1
echo 要把IP设置为172.16.70.18 请按 2
echo 要把IP设置为192.168.1.13 请按 3
echo 要退出 请按 3
echo.
choice /c 123450 /n /m "		请选择【1-3】："
 
echo %errorlevel%
if %errorlevel% == 1 goto set_ip1_ip  
if %errorlevel% == 2 goto set_ip2_ip  
if %errorlevel% == 3 goto set_ip3_ip  
if %errorlevel% == 4 goto end  
if %times% == 0 (goto vpn_connect) else (goto begin)  


:set_ip1_ip  
echo IP自动设置开始....
echo.
echo 自动获取IP地址....
netsh interface ip set address "以太网" dhcp
echo 自动获取DNS服务器....
netsh interface ip set dns "以太网" dhcp 
@rem 设置自动获取IP
echo 设置完成
pause
goto end  


:set_ip2_ip  
echo IP自动设置开始....
echo.
echo 正在设置IP及子网掩码
netsh interface ipv4 set address "以太网" "static" "172.16.70.18" "255.255.0.0"
echo 设置完成
pause
goto end 

:set_ip3_ip  
echo IP自动设置开始....
echo.
echo 正在设置IP及子网掩码
netsh interface ipv4 set address "以太网" "static" "10.10.3.198" "255.255.255.0" "10.10.3.254"
echo 设置完成
pause
goto end 




:end 
exit