@echo off
nul 2>&1 “%SYSTEMROOT%\system32\cacls.exe” “%SYSTEMROOT%\system32\config\system”
if ‘%errorlevel%’ NEQ ‘0’ (
echo 请求管理员权限…
goto UACPrompt
) else ( goto gotAdmin )
:UACPrompt
echo Set UAC = CreateObject(“Shell.Application”) > “%temp%\getadmin.vbs”
echo UAC.ShellExecute “%~s0”, “”, “”, “runas”, 1 >> “%temp%\getadmin.vbs”
“%temp%\getadmin.vbs”
exit /B
:gotAdmin
echo #####IP地址变更中######
ipconfig>ipc.txt
ipconfig /all>dns.txt
netsh interface ip show address>gwc.txt
netsh interface ip show dns>gwa.txt
for /f “delims=: tokens=2” %%a in (‘find “IPv4 地址” ipc.txt’) do set IP=%%a
for /f “delims=: tokens=2” %%b in (‘find “子网掩码” ipc.txt’) do set mask=%%b
for /f “delims=: tokens=2” %%c in (‘find “默认网关” ipc.txt’) do set gw=%%c
for /f “delims=: tokens=2” %%i in (‘find “DNS 服务器” dns.txt’) do set dns=%%i
for /f “tokens=4*” %%d in (‘netsh interface show interface ^| findstr “已连接”’) do set “ConName=%%~d”
netsh interface ip set address %ConName% static %IP% %mask% %gw%
netsh interface ip set dns %ConName% static %dns% primary
del ipc.txt
del dns.txt
echo ###IP地址已变更为【%IP%】####
pause