修改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地址。