批处理改IP和DNS可不用管本地连接的名字(推荐)：
@echo off
::判断本地连接的名字 赋值给变量a
for /f "tokens=3,4 delims== " %%i in ('ipconfig ^|findstr /r "本"') do echo %%i %%j >DNS.txt
for /f "tokens=1 delims==:" %%d in (DNS.txt) do set a=%%d
::请根据实际情况更改下面几行中的IP地址
@echo 开始修改IP地址和掩码
set address name="%a%" source = static addr = 192.168.0.4 mask = 255.255.255.0
@echo 开始修改网关
set address name="%a%" gateway = 192.168.0.250 gwmetric = 1
echo 开始更改主dns
netsh interface ip set dns name="%a%" source=static addr=202.103.0.68

echo 完成
echo 开始更改副dns
netsh interface ip add dns "%a%" 202.103.0.117 index=2
del DNS.txt
exit

vbs修改dns

On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetCards = objWMIService.ExecQuery _
("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each objNetCard in colNetCards
arrDNSServers = Array("61.128.128.68", "61.128.192.68", "221.5.203.99", "221.5.203.98") 地区DNS自己修改
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next