@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
echo 开始更改主dns
netsh interface ip set dns name="%a%" source=static addr=59.51.78.211
echo 完成
echo 开始更改副dns
netsh interface ip add dns "%a%" 222.246.129.81 index=2
del DNS.txt
exit

自己把上面的DNS修改成自己的即可~~~

netsh interface ip set dns "本地连接" static 8.8.8.8
netsh interface ip set dns "本地连接 2" static 8.8.8.8
netsh interface ip set dns "本地连接 3" static 8.8.8.8
netsh interface ip set dns "本地连接 4" static 8.8.8.8   
另存为bat文件，做开机命令就行了，，8。8。8。8   可以改成你要的DNS

收下了。

为什么不选择用VBS呢？静默的状态不好些吗？

回复 4# menglei5139


    这个bat可以放在网维那个run   bat里面。。。谢谢。，。。就不会弹出黑框框~~!

Set objWMIService=GetObject("winmgmts:\\.\root\cimv2")
    Set colNetAdapters=objWMIService.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
   
    Set argsNamed = WScript.Arguments.Named
    If argsNamed.Exists("IP") Then
        arrIPAddress = Array(argsNamed.Item("IP"))
    End If
    If argsNamed.Exists("掩码") Then
        arrSubnetMask = Array(argsNamed.Item("掩码"))
    End If
    If argsNamed.Exists("网关") Then
        arrGateway = Array(argsNamed.Item("网关"))
    End If
    If argsNamed.Exists("DNS") Then
        arrDNS = Split(argsNamed.Item("DNS"),",",-1,1)
    End If

    For Each objNetAdapter in colNetAdapters
        If Isarray(arrIPAddress) And Isarray(arrSubnetMask)  Then objNetAdapter.EnableStatic arrIPAddress,arrSubnetMask
        If Isarray(arrGateway) Then objNetAdapter.SetGateways arrGateway
        If Isarray(arrDNS) Then objNetAdapter.SetDNSServerSearchOrder arrDNS
    Next

上面的代码保存为 VBS格式,比如:修改IP网关DNS.vbs
使用方法:

只修改IP：(修改IP时必须加入修改子网掩码参数，否则不能修改。)
修改IP网关DNS.vbs /IP:192.168.3.249 /掩码:255.255.252.0

只修改网关：
修改IP网关DNS.vbs /网关:192.168.0.1

只修改DNS：
修改IP网关DNS.vbs /DNS:192.168.0.1,202.96.168.86,202.96.168.166

同时修改IP、网关：
修改IP网关DNS.vbs /IP:192.168.3.249 /掩码:255.255.252.0 /网关:192.168.0.1

同时修改IP、DNS：
修改IP网关DNS.vbs /IP:192.168.3.249 /掩码:255.255.252.0 /DNS:192.168.0.1,202.96.168.86,202.96.168.166

同时修改网关、DNS：
修改IP网关DNS.vbs /网关:192.168.0.1 /DNS:192.168.0.1,202.96.168.86,202.96.168.166

同时修改IP、网关、DNS：
修改IP网关DNS.vbs /IP:192.168.3.249 /掩码:255.255.252.0 /网关:192.168.0.1 /DNS:192.168.0.1,202.96.168.86,202.96.168.166

批处理调用：
call \\server\bat$\修改IP网关DNS.vbs /各种参数

Const T_GATEWAY = "10.20.1.248" '网关
Const T_NEWDNS1 = "222.246.129.81" 'DNS1
Const T_NEWDNS2 = "59.51.78.211" 'DNS2
strWinMgmt="winmgmts:{impersonationLevel=impersonate}"
Set NICS = GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAdapterConfiguration")
For Each NIC In NICS
If NIC.IPEnabled Then
NIC.SetDNSServerSearchOrder Array(T_NEWDNS1,T_NEWDNS2)
NIC.SetGateways Array(T_GATEWAY)
End If
Next

发布一个VBS改DNS的，。。