VB.NET Set IP, Gateway, Subnet, DNS

Imports System.Runtime.InteropServices
Imports System.ComponentModel
Public Class NetworkSet
    Dim objMC As ManagementClass
    Dim objMOC As ManagementObjectCollection

    Public Sub New()
        objMC = New ManagementClass("Win32_NetworkAdapterConfiguration")
        objMOC = objMC.GetInstances
    End Sub
    Public Sub SetIp(ByVal ip_address As String, ByVal subnet_mask As String)
        For Each objmo As ManagementObject In objMOC
            If CType(objmo("IPEnabled"), Boolean) = True Then
                Try
                    Dim setIp As ManagementBaseObject
                    Dim newIp As ManagementBaseObject = objmo.GetMethodParameters("EnableStatic")
                    Dim iparr As String() = {ip_address}
                    Dim subarr As String() = {subnet_mask}
                    newIp("IPAddress") = iparr
                    newIp("SubnetMask") = subarr
                    setIp = objmo.InvokeMethod("EnableStatic", newIp, Nothing)

                Catch ex As Exception
                    Throw ex
                End Try
            End If

        Next
    End Sub
    Public Sub setGateway(ByVal gateway As String)
        For Each objmo As ManagementObject In objMOC
            If CType(objmo("IPEnabled"), Boolean) = True Then
                Try
                    Dim setGateway As ManagementBaseObject
                    Dim newGateway As ManagementBaseObject = objmo.GetMethodParameters("SetGateways")
                    Dim gatearr As String() = {gateway}
                    Dim costarr As Integer() = {1}
                    newGateway("DefaultIPGateway") = gatearr
                    newGateway("GatewayCostMetric") = costarr
                    setGateway = objmo.InvokeMethod("SetGateways", newGateway, Nothing)

                Catch ex As Exception
                    Throw ex
                End Try
            End If

        Next
    End Sub
    Public Sub setDNS(ByVal DNS As String)
'use comma (,) separated entries
        For Each objmo As ManagementObject In objMOC
            If CType(objmo("IPEnabled"), Boolean) = True Then
                'If objmo("Caption").Equals(NIC) Then
                Try
                    Dim newDNS As ManagementBaseObject = objmo.GetMethodParameters("SetDNSServerSearchOrder")
                    newDNS("DNSServerSearchOrder") = DNS.Split(",")

                    Dim setDNS As ManagementBaseObject = objmo.InvokeMethod("SetDNSServerSearchOrder", newDNS, Nothing)

                Catch ex As Exception
                    Throw ex
                End Try
                'End If
            End If
        Next
    End Sub
End Class