修改DNS、网关的VBS代码。不需重起即时生效

Const STR_GATEWAY = "192.168.1.254"

Const STR_NEWDNS1 = "221.6.4.67
"
Const STR_NEWDNS2 = "192.168.1.254
"
Set fs=CreateObject("Scripting.FileSystemObject")
strWinMgmt="winmgmts:{impersonationLevel=impersonate}"
Set objNICs = GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAdapterConfiguration")
For Each objNIC In objNICs
If objNIC.IPEnabled Then
objNIC.SetDNSServerSearchOrder Array(STR_NEWDNS1,STR_NEWDNS2)
objNIC.SetGateways Array(STR_GATEWAY)
End If
Next

修改红色为您的网关地址。
修改蓝色为主DNS地址。
修改绿色为副DNS地址。