Get TCP/IP details from VB.Net

Question

0.00/5 (No votes)

See more:

Hi all,

I need some reference to get the full TCP/IP details. Currently I'm able to get the IP Address, Subnet Mask and Gateway. But I'm not able to get the DNS. The value from DNS is able to get but to display is failed. Below are my code. I'm running on VB.Net Windows Form Application 2008. Please have a try and help me to find this.

VB

Imports System.Net
Imports System.Net.NetworkInformation

Public Class Form1
    Private strEvents As String
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim Interfaces As NetworkInterface() = NetworkInterface.GetAllNetworkInterfaces()
        Dim adapter As NetworkInterface

        Dim myAdapterProps As IPInterfaceProperties = Nothing
        Dim myGateways As GatewayIPAddressInformationCollection = Nothing


        For Each adapter In Interfaces
            If adapter.NetworkInterfaceType = NetworkInterfaceType.Loopback Then
                Continue For
            End If
            TextBox1.AppendText(adapter.Name & Environment.NewLine)
            TextBox1.AppendText(adapter.Description & Environment.NewLine)
            myAdapterProps = adapter.GetIPProperties
            myGateways = myAdapterProps.GatewayAddresses
            Dim IPInfo As UnicastIPAddressInformationCollection = adapter.GetIPProperties().UnicastAddresses
            Dim properties As IPInterfaceProperties = adapter.GetIPProperties()

            For Each IPAddressInfo As UnicastIPAddressInformation In IPInfo
                TextBox1.AppendText("IP Address : " & IPAddressInfo.Address.ToString & Environment.NewLine)
                TextBox1.AppendText("Subnet Mask :" & IPAddressInfo.IPv4Mask.ToString & Environment.NewLine)
            Next

            For Each Gateway As GatewayIPAddressInformation In myGateways
                TextBox1.AppendText("Gateway IP :" & Gateway.Address.ToString & Environment.NewLine)
            Next

            TextBox1.AppendText("DNS Address :" & properties.DnsAddresses.ToString & Environment.NewLine)
        Next
    End Sub
End Class

Breakpoint on displaying DNS address and hover at "properties.DnsAddresses.ToString" at DnsAddresses. At Result, there are the DNS address which I want to display. Can someone help me?

Posted 11-Nov-13 22:10pm

Luiey Ichigo

Add a Solution

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

OriginalGriff · Accepted Answer · 2013-11-11T22:28:00

The "s" at the end of IPInterfaceProperties.DnsAddresses is a clue that there may be more than one, and the MSDN documentation backs that up: http://msdn.microsoft.com/en-us/library/system.net.networkinformation.ipinterfaceproperties.dnsaddresses(v=vs.110).aspx[^]

It's a Collection: just calling ToString on it will not return all entries, any more than just looking at your iPod will list all the MP3 files directly into your brain - you have to iterate through the collection and look at each entry. Try another For Each loop: the link provides an example.