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
