GetAdaptersInfo

This sample program makes some basic use of the API call and the results it returns to report on network adapters in your system. If you need more information you can easily expand upon it to extract multiple IP addresses where they exist, etc.

There are some limitations when using early versions of Windows, so see the MSDN if you need support for Windows XP or earlier.

Sample output, Adapter 0 is not connected to a network:

Download from me

Download from source

Source: VBForums