@echo off

set New_IP="192.168.1.100"

%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit
netsh interface ip set address name="以太网" source=static addr=%New_IP% mask=255.255.255.0
echo 新IP已设置为%New_IP%
echo 按任意键还原IP地址....&pause>nul
netsh interface ip set address "以太网" dhcp
netsh interface ip set dns "以太网" dhcp
echo IP地址已还原
echo 按任意键退出程序....&pause>nul