Const STR_NEWDNS1 = "114.114.114.114"
Const STR_NEWDNS2 = "114.114.115.115"

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)
 End If
Next

Set objShell = CreateObject("WScript.Shell")
objShell.PopUp "DNS Change to " & STR_NEWDNS1 & ", " & STR_NEWDNS2