最近总是在公司和家里来回办公,切换ip地址实在麻烦,整一个cmd
@echo off
cd /d %~dp0
%1 start "" mshta vbscript:createobject("shell.application").shellexecute("""%~0""","::",,"runas",1)(window.close)&exit
@rem 以上是以管理员方式运行
chcp 65001
title --IP自动设置 --
MODE con: COLS=80 lines=30
color 0a
:begin
@rem cls
echo 要把IP设置为自动获取 请按 1
echo 要把IP设置为192.168.20.199(家里) 请按 2
echo 要把IP设置为10.60.40.60(公司) 请按 3
echo 要退出 请按 4
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
:set_ip1_ip
echo IP自动设置开始....
echo.
echo 自动获取IP地址....
netsh interface ipv4 set address name="以太网" source=dhcp
echo 自动获取DNS服务器....
netsh interface ipv4 set dnsservers name="以太网" source=dhcp
echo 设置完成
pause
goto end
:set_ip2_ip
echo IP自动设置开始....
echo 正在设置IP及子网掩码
echo.
netsh interface ipv4 set address "以太网" static 192.168.20.199 255.255.255.0 192.168.20.1
echo 正在设置DNS
netsh interface ipv4 set dnsservers name="以太网" source=static address=180.76.76.76 register =primary validate=no
netsh interface ipv4 add dnsservers name="以太网" address=8.8.8.8 index=2 validate=no
echo 设置完成
pause
goto end
:set_ip3_ip
echo IP自动设置开始....
echo 正在设置IP及子网掩码
echo.
netsh interface ipv4 set address "以太网" static 10.60.40.60 255.255.255.0 10.60.40.1
echo 正在设置DNS
netsh interface ipv4 set dnsservers name="以太网" source=static address=180.76.76.76 register =primary validate=no
netsh interface ipv4 add dnsservers name="以太网" address=8.8.8.8 index=2 validate=no
echo 设置完成
pause
goto end
:end
exit
将上面代码保存到一个*.cmd放到桌面,每次换地方执行一下就好了
文章来源:刘俊涛的博客 欢迎关注公众号、留言、评论,一起学习。
若有帮助到您,欢迎点击推荐,您的支持是对我坚持最好的肯定(*^_^*)