Dim s As String = "Win32_NetworkAdapterConfiguration WHERE IPEnabled =" & _
          "True"
        Dim WMISearcher As System.Management.ManagementObjectSearcher = _
                        New ManagementObjectSearcher("SELECT * FROM " + s)
        Dim para As ManagementBaseObject = Nothing
        Dim iface As String = Nothing
        For Each mo As ManagementObject In WMISearcher.Get
            iface = mo("Caption").ToString()
            If Not CBool(mo("DHCPEnabled")) AndAlso _
               MessageBox.Show(String.Format("Für das Interface "" {0} "" DHCP" & _
               "aktivieren?", iface), "", _
               MessageBoxButtons.YesNo) = DialogResult.Yes Then
                mo.InvokeMethod("EnableDHCP", New Object() {})
            End If
        Next