'// Auslesen:
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button4.Click
        Dim s As String = "Win32_NetworkAdapterConfiguration WHERE IPEnabled =" & _
        "True"
        Dim WMISearcher As System.Management.ManagementObjectSearcher = _
                        New ManagementObjectSearcher("SELECT * FROM " + s)
        Dim value As Object = Nothing
        For Each fan As ManagementObject In WMISearcher.Get
            For Each p As PropertyData In fan.Properties
                value = fan.Properties(p.Name).Value
                If value Is Nothing Then value = New String(" -- Nicht" & _
                  "ermittelbar --")
                If value.GetType.IsArray Then
                    Dim tmp As Object
                    For Each o As Object In value
                        tmp += " : " + o.ToString
                    Next
                    value = tmp
                End If
                out(String.Format("Einstellung ""{0}"" hat den Wert: ""{1}""", _
                  New Object() {p.Name, value}))
            Next
        Next
    End Sub
 
    '// Ändern:
    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