[网络协议]Bat脚本自动设置本机IP地址

@echo off
color 4

title ?以Admin权限设置本机IP地址

PUSHD %~DP0 & cd /d "%~dp0"
%1 %2
mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :runas","","runas",1)(window.close)&goto :eof

:runas

echo ?a:公司IP设置,b:家用IP随机设置

set/p c=

if /i "%c%" equ "a" goto company

if /i "%c%" equ "b" goto home

:company

echo ?正在设置固定IP（192.168.xx.xx），请稍后...

netsh interface ipv4 set address name="WLAN" source=static addr=192.168.xx.xx?mask=255.255.255.0 gateway=192.168.xx.1 gwmetric=0 >nul

echo ?正在添加本机主DNS...

netsh interface ipv4 set dns name="WLAN" source=static addr=114.114.114.114 register=PRIMARY

goto printip

goto end

:home

echo 正在自动获取IP地址...

netsh interface ip set address name = "WLAN" source = dhcp

echo 正在自动获取DNS服务器...

netsh interface ip set dns name = "WLAN" source = dhcp

goto printip

goto end

:printip

color 3

echo ? 查看本机当前IP配置

ipconfig /all

echo ?停顿6秒后结束

ping /n 6 127.1>nul

exit
pause
?