Visual Basic - Modificar la gateway(puerta enlace) desde vb

'Cómo cambiar la dirección IP, máscara de subred y puerta de enlace: 

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

Debug.Print "Dirección IP, máscara de subred y puerta de enlace modificadas"

Else

Debug.Print "No se han podido modificar la dirección IP, máscara de subred y puerta de enlace"

End If

Next objAdaptador

Set objWMI = Nothing