On Error Resume Next
 
strComputer = "."

oldDNS1 = "212.31.255.125"
newDNS1 = "217.19.153.2"

oldDNS2= "213.215.196.121"
newDNS2 = "217.19.153.3"

oldDNS3= "217.27.90.70"
newDNS3 = "217.19.153.2"

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNicConfigs = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
 
WScript.Echo VbCrLf & "Aggiornamento DNS di NetOrange" & strComputer
 
For Each objNicConfig In colNicConfigs
	blnFound = 0
	If objNicConfig.DHCPEnabled = False Then
		WScript.Echo VbCrLf & "  Network Adapter " & objNicConfig.Index
		arrDNSServerSearchOrder = objNicConfig.DNSServerSearchOrder
		'WScript.Echo "    DNS Server Search Order - Before:"
		If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
			For Each strDNSServer In objNicConfig.DNSServerSearchOrder
				'WScript.Echo "        " & strDNSServer
			Next
		End If
		
		For i = 0 to UBound(arrDNSServerSearchOrder)
			If arrDNSServerSearchOrder(i) = oldDNS1 Then
				arrDNSServerSearchOrder(i) = newDNS1
				blnFound = 1
			End If
			If arrDNSServerSearchOrder(i) = oldDNS2 Then
				arrDNSServerSearchOrder(i) = newDNS2
				blnFound = 1
			End If
			If arrDNSServerSearchOrder(i) = oldDNS3 Then
				arrDNSServerSearchOrder(i) = newDNS3
				blnFound = 1
			End If

		Next
		If blnFound Then
			retSetDNS = objNicConfig.SetDNSServerSearchOrder(arrDNSServerSearchOrder)
			If retSetDNS = 0 Then
				'WScript.Echo "    Replaced " & strOldDNSServer & " with " & strNewDNSServer & " in DNS search order."
				WScript.Echo VbCrLf & "DNS Modificato con sucesso."
			Else
				WScript.Echo VbCrLf & "Impossibile Modificare IL DNS."
			End If
		Else
			WScript.Echo VbCrLf & "Non  stato necessario modificare il DNS"
		End If
		'WScript.Echo "DHCP Disabilitato"
	Else
		WScript.Echo "Non  necessario modificare i DNS localmente"
	End if
Next
WScript.Echo VbCrLf & "Aggiornamento Completato"

'WScript.Echo VbCrLf & String(80, "-")
' 
'Set colNicConfigs = objWMIService.ExecQuery ("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
' 
'For Each objNicConfig In colNicConfigs
'  WScript.Echo VbCrLf & "  Network Adapter " & objNicConfig.Index
'  WScript.Echo "    DNS Server Search Order - After:"
'  If Not IsNull(objNicConfig.DNSServerSearchOrder) Then
'    For Each strDNSServer In objNicConfig.DNSServerSearchOrder
'      WScript.Echo "        " & strDNSServer
'    Next
'  End If
'Next