Private Sub Form_Load()
Dim objWMI As Object, objAdaptador As Object
Dim arrIP As Variant, arrMascara As Variant
Dim arrPuertaEnlace As Variant, arrMetrica As Variant
Dim lngResultado1 As Long, lngResultado2 As Long
     Set objWMI = GetObject("winmgmts:\\.\root\cimv2")
     arrIP = Array("192.168.1.141")
     arrMascara = Array("255.255.255.0")
     arrPuertaEnlace = Array("192.168.1.100")
     arrMetrica = Array(1)
     For Each objAdaptador In objWMI.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
          lngResultado1 = objAdaptador.EnableStatic(arrIP, arrMascara)
          lngResultado2 = objAdaptador.SetGateways(arrPuertaEnlace, arrMetrica)
          If lngResultado1 = 0 And lngResultado2 = 0 Then
               Label1 = "Dirección IP, máscara de subred y puerta de enlace modificadas"
          Else
               Label1 = "No se han podido modificar la dirección IP, máscara de subred y puerta de enlace"
          End If
     Next objAdaptador
     Set objWMI = Nothing
End Sub