Cambiar la IP

[Alberto Miguel]

Hola, necesito crear un programilla que cambie la IP de un PC, el asunto es
que la empresa en la que trabajo tiene diferentes sedes y cada vez q algun
"personaje" va con su portatil por las diferentes sedes tiene que cambiar la
IP y la mitad de las veces lo que hacen es descojonar el PC....

Salu2 y cualquier sugerencia sera bien recibida. Gracias

--
-------------------------------------
Conservas Ortiz, S.A.

Iñaki Deuna, 15
48700 Ondarroa

Tfn: (34) 94 613 4313
Vizcaya (Spain)
--------------------------------------

[Tako]

"Alberto Miguel" <ami...@ortiz.es> wrote in message
news:%23wWxQo3...@TK2MSFTNGP09.phx.gbl...

> Hola, necesito crear un programilla que cambie la IP de un PC, el asunto
es
> que la empresa en la que trabajo tiene diferentes sedes y cada vez q algun
> "personaje" va con su portatil por las diferentes sedes tiene que cambiar
la
> IP y la mitad de las veces lo que hacen es descojonar el PC....
>
> Salu2 y cualquier sugerencia sera bien recibida. Gracias

A ver, las soluciones "clásicas" son utilizar un DHCP, o bien utilizar
la utilidad netsh.

Si no utilizas el DHCP supongo que será por que ya lo tenéis montado de
alguna forma, así que te quedaría la segunda opción, busca por la ayuda de
Windows el comando "netsh" y por deja.com. Aquí tienes un hilillo para que
veas de que va.

http://groups.google.com/groups?hl=es&lr=&ie=UTF-8&oe=UTF-8&threadm=bhvj3d%243lf37%241%40ID-98554.news.uni-berlin.de&rnum=2&prev=/groups%3Fhl%3Des%26lr%3D%26ie%3DUTF-8%26oe%3DUTF-8%26q%3Dnetsh%2B%2Bgroup%253Amicrosoft.public.es.*

Suerte, agur

[Rubén Vigón]

Puedes hacerlo utilizando WMI (Proyecto > Referencias > Microsoft WMI Scripting V1.1 Library); el
siguiente ejemplo establece la dirección IP a 192.168.1.141 y la puerta de enlace a 192.168.1.100:

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.1.141")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.1.100")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
WScript.Echo "The IP address has been changed."
Else
WScript.Echo "The IP address could not be changed."
End If
Next objNetAdapter

Un saludo!

Rubén Vigón
Microsoft MVP Visual Basic

(Guía de buen uso del foro)
http://perso.wanadoo.es/rubenvigon/foro

[Alberto Miguel]

Gracias por las respuestas...
Otra cosa hay alguna forma de saber la IP que tiene el PC en ese momento???

--
-------------------------------------
Conservas Ortiz, S.A.

Iñaki Deuna, 15
48700 Ondarroa

Tfn: (34) 94 613 4313
Vizcaya (Spain)
--------------------------------------

"Rubén Vigón" <vi...@QUITAESTOwanadoo.es> escribió en el mensaje
news:uL8BHw3o...@TK2MSFTNGP10.phx.gbl...

[Rubén Vigón]

Determining the Local IP Address for the Installed Adapter
http://www.mvps.org/vbnet/code/network/getadaptersinfo-localipaddress.htm

Determining All Local IP Addresses for All Installed Adapters
http://www.mvps.org/vbnet/code/network/getadaptersinfo-localipaddresses.htm

O bien, siguiendo con el ejemplo anterior de WMI:

Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("SELECT IPAddress FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=True")
For Each IPConfig In IPConfigSet
For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
MsgBox IPConfig.IPAddress(i)
Next i
Next IPConfig

[Alberto Miguel]

Gracias por las respuestas

--
-------------------------------------
Conservas Ortiz, S.A.

Iñaki Deuna, 15
48700 Ondarroa

Tfn: (34) 94 613 4313
Vizcaya (Spain)
--------------------------------------

"Alberto Miguel" <ami...@ortiz.es> escribió en el mensaje
news:%23wWxQo3...@TK2MSFTNGP09.phx.gbl...