Script Vbs para alterar DNS primário e secudário

• É possível digitar utilizando o NotePad, NotePad ++, Gedit, Scite Text Editor e outros editore de texto. Salve o arquivo com a extensão .vbs (Exemplo: alteradns.vbs) . Clique duas vezes no arquivo q a modificação será feita na sua maquina !
• Também é possivel criar uma gpo para iniciar no logon do computador e realizar a modificação para todas as maquinas da rede !
• Segue o script abaixo

==================================================
'Autor: ||S0uz@||
'Script:   Altera DNS :

'Versão: 02
'Tipo: Automatico
'Criacao 2012.01.13
'Modificacao 2012.11.01
'Modificacao ||S0uz@||
'Descricao: Modifica o DNS Primario e Secundário
'=====================================================

On Error Resume Next

sdns1 = "192.168.0.154" 'Modificar para o seu DNS Primário 
sdns2 = "192.168.0.9"     'Modificar para o seu DNS Secndário.

Set objNetwork = WScript.CreateObject( "WScript.Network" )
strComputer = objNetwork.ComputerName

strComputer = strComputer
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colNetCards = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objNetCard in colNetCards
    arrDNSServers = Array( sdns1, sdns2 )
    objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next