Script de cambio de dns

Este verificará si ya tiene las DNS nuevas, en caso contrario, las cambiará.   On Error Resume Next strComputer = “.” strDNSNuevas = “Servidor_DNS_1,Servidor_DNS_2″ Set objWMIService = GetObject(“winmgmts://” _ & “{impersonationlevel=impersonate}|\” & strComputer & “rootcimv2″) Set colNetCards = objWMIService.ExecQuery _ (“SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IpEnabled = True”) For Each objNetCard In colNetCards strDNSs = […]