script para cambiar conexoión a internet

¿Quieres cambiar las IPs?

Si es asi:

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

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

strIPAddress = Array("INTRODUCIR IP")
strSubnetMask = Array("INTRODUCIR IP")
strGateway = Array("INTRODUCIR IP")
strGatewayMetric = Array(1)

For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress,
strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway,
strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "IP MODIFICADA."
Else
WScript.Echo "IP NO NODIFICADA."
End If
Next


On Mon, 31 Jan 2005 01:33:02 -0800, Carlos
wrote:

Hola a todos.

Hemos instalado un proxy y tenemos que cambiar la configuración de todos los
clientes.

Alguien sabe como cambiar la configuración de la conexión a internet de
forma automática

Saludos,
Rubén Figols