Zitat:

Mein erster Ansatz war, die "Description"-Eigenschaft in der "For Each"-Schleife abzufragen, aber da das Programm auf verschiedenen Rechnern (Laptop's und Desktop's) mit verschiedenen Netzwerkkarten laufen soll, war das leider nicht zielführend (ändern sich logischerweise bei verschiedenen Netzwerkkarten )

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
        'Alle installierten Netzwerkadapter in Combobox einlesen
        Dim rk As Microsoft.Win32.RegistryKey = _
          My.Computer.Registry.LocalMachine.OpenSubKey( _
          "SYSTEM\CurrentControlSet\Enum\Root\MS_PSCHEDMP")
        For Each sk As String In rk.GetSubKeyNames
            Dim k As Microsoft.Win32.RegistryKey = rk.OpenSubKey(sk, False)
            ComboBox1.Items.Add(k.GetValue("FriendlyName"))
        Next
    End Sub

  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
            If mo.Properties("Description").Value = ComboBox1.SelectedItem Then
                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)
            End If
        Next

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus