hola¡¡ de nuevo requiero su ayuda¡¡ tenia un programa para cambiar la ip, mascara de subred, puerta de enlace y las dns.

el caso es que el programa funcionaba bien, todo perfecto. pero de un dia a otro (o de una compilacion a otra con un par de modificaciones que en principio no tenian que ver con el script que falla) lo cambia todo correctamente, menos la puerta de enlace que la deja en blanco. no se donde puede estar el problema, pues el script que cambia todos estos parametros es bajado de internet (y funcionaba correctamente..) y no lo he tocado.

agrego a este mensaje el codigo del programa y el compilado para que comprobeis que verdaderamente falla (espero que no sea cosa del funcionamiento dentro de mi pc)

un saludo y gracias¡



Private Sub Form_Load()
Option1.Value = False
Option2.Value = False
End Sub

Private Sub option1_click()
Label1.Caption = "192.168.1."
Text1.SetFocus
End Sub
Private Sub option2_click()
Label1.Caption = "172.19.252."
Text1.SetFocus
End Sub
Private Sub Command1_Click()

If Option1.Value = True Then
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.1." & Text1.Text)
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.1.1")
strGatewaymetric = Array(1)

For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
MsgBox "¡La IP se ha cambiado correctamente!"
Else
MsgBox "¡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("62.37.228.20", "80.58.61.250")
objNetCard.SetDNSServerSearchOrder (arrDNSServers)
Next


End If



If Option2.Value = True Then


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

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

strIPAddress = Array("172.19.252." & Text1.Text)
strSubnetMask = Array("255.255.255.0")
strGateway = Array("172.19.252.1")
strGatewaymetric = Array(1)

For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
If errEnable = 0 Then
MsgBox "¡La IP se ha cambiado correctamente!"
Else
MsgBox "¡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("62.37.228.20", "80.58.61.250")
objNetCard.SetDNSServerSearchOrder (arrDNSServers)
Next

End If

End Sub

Private Sub Text1_Change()
If (Val(Text1.Text) > 255 Or Val(Text1.Text) = 0) And Len(Text1.Text) = 3 Then MsgBox "El número debe estar entre 1 y 255"

End Sub



Link de descarga del programa ---->

http://www.megaupload.com/es/?d=30FBVA04

(confien en el archivo...no se trata de un virus.. si no quieren descargarlo tampoco seria necesario si se detecta el fallo). Gracias¡¡