mo.GetPropertyValue("DHCPServer")

    Private Function GetNetworkAdapterInfo() As String
        Try
            Dim searchQuery As New ManagementObjectSearcher( _
                "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE" & _
                "IPEnabled = True")
            If Not searchQuery.Get.Count > 0 Then _
                Throw New Exception("Netzwerkadapter nicht vorhanden oder nicht" & _
                "aktiviert.")
 
            Dim serverListe As New List(Of String)
            For Each obj As ManagementObject In searchQuery.Get
                serverListe.Add(obj.GetPropertyValue("DHCPServer").ToString)
            Next
 
            ' Nur DHCPServer vom ersten Adapter zurückgeben
            Return serverListe(0) 
 
            ' DHCPServer von allen aktivierten NIC ausgeben
            ' Return (String.Join(vbCrLf, serverListe.ToArray)) 
        Catch ex As Exception
            Throw New Exception(ex.Message)
        End Try
    End Function