Script en vbs para cambiar la ip (funciona en windows vista y en windows xp)

Bueno como todos sabéis a parte de mi querida línea de comandos también hay otras formas de hacer las cosas, entre otras con vbs.

He recopilado en el siguiente script 2 scripts de technet 1 para cambiar la conf ip y otro para las dns. Espero que os sea de ayuda.

Abrid vuestro editor de texto favorito. copiais el contenido del script y lo guardais con extensión .vbs

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

Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

strIPAddress = Array("192.168.102.133")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.102.254")
strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "La IP a sido cambiada correctamente."
Else
WScript.Echo "La IP no se ha podido cambiar."
End If
Next

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("192.168.102.2", "194.179.1.100")
objNetCard.SetDNSServerSearchOrder(arrDNSServers)
Next
-------------------- FIN --------->>> corta antes de esta línea.

Luego solo falta ejecutarlo con doble click o con cscript nombrefichero.vbs

y eso es todo amigos. Hasta la próxima