Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button5.Click
        Dim s As String = "Win32_NetworkAdapterConfiguration WHERE IPEnabled =" _
          & _
        "True"
        Dim WMISearcher As System.Management.ManagementObjectSearcher = _
                        New ManagementObjectSearcher("SELECT * FROM " + s)
        Dim para As ManagementBaseObject
        For Each mo As ManagementObject In WMISearcher.Get
            para = mo.GetMethodParameters("EnableStatic")
            para("IPAddress") = New String() {"10.10.10.153"} '// Hier kommt 
            ' deine neue IP rein
            para("SubnetMask") = New String() {"255.255.255.0"}
            mo.InvokeMethod("EnableStatic", para, Nothing)
        Next
    End Sub