Dim hostNames() As String = {"host1", "host2"} '// zum testen
        Dim hosts As List(Of System.Net.IPHostEntry) = New List(Of _
          System.Net.IPHostEntry)
        For Each host As String In hostNames
            hosts.Add(System.Net.Dns.GetHostEntry(host))
        Next
        For Each hostEntry As System.Net.IPHostEntry In hosts
            Debug.WriteLine("Hostname: " + hostEntry.HostName + " : IP: " + _
              hostEntry.AddressList(0).ToString())
        Next