Const STR_GATEWAY = "192.168.1.254"
　　Const STR_NEWDNS1 = "221.6.4.67"
　　Const STR_NEWDNS2 = "61.177.7.1"
　　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
　　
　　修改192.168.1.254为您的网关地址。
　　修改221.6.4.67为主DNS地址。
　　修改61.177.7.1为副DNS地址