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