Collecting and Displaying the Network Info VB .NET Program Example

Create a new VB .NET console application. You may want to use the solution and project name as shown in the following screenshot.

Add/edit the code as given below.

Imports System

Imports System.Management

'This sample demonstrates the use of System.Managment

'to detect whether or not one or more valid network

'connections is associated with the machine.

Module NetworkInformation

    Sub Main()

        ' Check to see if there is one or more connections

        ' assigned to this machine (based on IP address)

        Dim numConnections As Integer

        numConnections = GetNumAvailableConnections()

        If numConnections > 0 Then

            If (numConnections = 1) Then

                Console.WriteLine("1 connection on this machine with")

                Console.WriteLine("at least 1 valid IP address assigned")

            Else

                Console.WriteLine(numConnections & " connections on this ")

                Console.WriteLine("machine with at least 1 valid IP address")

            End If

        Else

            Console.WriteLine("No cards found with a valid IP address")

        End If

    End Sub

    Function GetNumAvailableConnections() As Integer

        ' Query for the list of network adapters on the machine

        ' Note for more detail on this type you can search

        ' for "Win32_NetworkAdapterConfiguration"

        ' http://msdn.microsoft.com/en-us/library/aa394217(VS.85).aspx

        Dim NAQuery As SelectQuery

        NAQuery = New SelectQuery("select * from Win32_NetworkAdapterConfiguration")

        Dim NASearcher As ManagementObjectSearcher

        NASearcher = New ManagementObjectSearcher(NAQuery)

        Dim availableConnections As Integer

        Try

            ' Loop through each adapter returned from the query

            Dim enumerate As ManagementObject

            For Each enumerate In NASearcher.Get()

                ' Find out if IP is enabled on this adapter

                Dim IPEnabled As Boolean

                IPEnabled = enumerate("IPEnabled")

                ' Get the adapter description

                Console.WriteLine(enumerate("Caption"))

                ' If IP is enabled then check for a non-zero IP

                If IPEnabled Then

                    Dim IPAddress As String()

                    IPAddress = enumerate("IPAddress")

                    Console.WriteLine("IP Address: " & IPAddress(0))

                    If IPAddress(0) <> "0.0.0.0" Then

                        availableConnections = availableConnections + 1

                    End If

                End If

                Console.WriteLine()

            Next

        Catch e As Exception

            Console.WriteLine(e.ToString())

        End Try

        Return availableConnections

    End Function

End Module

// NetworkConnectionCP.cpp : main project file.

#include "stdafx.h"

using namespace System;

using namespace System::Management;

// just a normal function

int GetNumAvailableConnections()

{

     // Query for the list of network adapters on the machine

     // Note for more detail on this type you can search

     // for "Win32_NetworkAdapterConfiguration"

     // http://msdn.microsoft.com/en-us/library/aa394217(VS.85).aspx

     SelectQuery^ NAQuery = gcnew SelectQuery("select * from Win32_NetworkAdapterConfiguration");

     ManagementObjectSearcher^ NASearcher = gcnew ManagementObjectSearcher(NAQuery);

     int availableConnections = 0;

     try

     {

             // Loop through each adapter returned from the query

             for each (ManagementObject^ enumerate in NASearcher->Get())

             {

                     // Find out if IP is enabled on this adapter

                     bool  IPEnabled = (bool)enumerate["IPEnabled"];

                     // Get the adapter description

                     Console::WriteLine((String^)enumerate["Caption"]);

                     // If the IP is enabled check for non-zero IP

                     if(IPEnabled)

                     {

                           array<String^>^ IPAddress = (array<String^>^)enumerate["IPAddress"];;

                           Console::WriteLine("IP Address: " + IPAddress[0]);

                           if(IPAddress[0] != "0.0.0.0")

                           {

                                 availableConnections++;

                           }

                       }

                            Console::WriteLine();

                 }

            }

            catch(Exception^ err)

            {

                  Console::WriteLine("You've got some error: " + err->ToString());

             }

         return availableConnections;

     }

/// <summary>

/// This sample demonstrates the use of System.Managment

/// to detect whether or not one or more valid network

/// connections is associated with the machine.

/// </summary>

[STAThread]

int main(array<System::String ^> ^args)

{

      // Check to see if there is one or more connections

      // assigned to this machine (based on IP address)

      int numConnections = GetNumAvailableConnections();

      if(numConnections > 0)

      {

           if(numConnections == 1)

           {

                   Console::WriteLine("1 connection on this machine with ");

                   Console::WriteLine("at least 1 valid IP address assigned");

            }

            else

            {

                    Console::WriteLine(numConnections + " connections on this ");

                    Console::WriteLine("machine with at least 1 valid IP address");

             }

        }

        else

        {

                   Console::WriteLine("No cards found with a valid IP address");

        }

   return 0;

}