Get-Network.ps1

<#
.SYNOPSIS
Determines the most likely candidate for the active Internet-specific network adapter on this
machine.  All other adpaters such as tunneling and loopbacks are ignored.  Only connected IP
adapters are considered.
#>

param([switch] $verbose)

$preferred = $null

$items = @()
if ([Net.NetworkInformation.NetworkInterface]::GetIsNetworkAvailable())
{
	[Net.NetworkInformation.NetworkInterface]::GetAllNetworkInterfaces() | % `
	{
        if ($_.NetworkInterfaceType -ne 'Loopback')
        {
		    $item = New-Object PSObject -Property @{
			    Address = $null
			    DNSServer = $null
			    Gateway = $null
				Description = $null
				DnsSuffix = $null
				BytesReceived = 0
				BytesSent = 0
                Status = $_.OperationalStatus
                Type = $_.NetworkInterfaceType
            }

            $props = $_.GetIPProperties()

            $item.Address = $props.UnicastAddresses `
                | ? { $_.Address.AddressFamily -eq 'InterNetwork' } `
                | select -first 1 -ExpandProperty Address

            $item.DNSServer = $props.DnsAddresses `
                | ? { $_.AddressFamily -eq 'InterNetwork' } `
                | select -first 1 -ExpandProperty IPAddressToString

            $item.Gateway = $props.GatewayAddresses `
                | ? { $_.Address.AddressFamily -eq 'InterNetwork' } `
                | select -first 1 -ExpandProperty Address

            $stats = $_.GetIPv4Statistics() | Select -first 1
			$item.BytesReceived = $stats.BytesReceived
			$item.BytesSent = $stats.BytesSent

			$item.Description = $_.Name + ', ' + $_.Description
			$item.DnsSuffix = $props.DnsSuffix
            if (($props.DnsSuffix -ne $null) -and ($props.DnsSuffix.Length -gt 0))
            {
                if ($item.Type.ToString().StartsWith('Wireless'))
                {
					$ssid = netsh wlan show interfaces | Select-String '\sSSID'
					if ($ssid)
					{
						$profile = $ssid.ToString().Split(':')[1].Trim()
						if ($profile) { $item.Description += (', ' + $profile) }
					}
                }
                else
                {
                    $item.Description += (', ' + $props.DnsSuffix)
                }
            }

            if ((!$preferred) -and ($item.Status -eq 'Up') -and $item.Address -and $item.DNSServer)
            {
                $preferred = $item.Address
            }

            $items += $item
        }
	}

    Write-Host
    if ($preferred -eq $null)
    {
        Write-Host 'Preferred address is unknown' -ForegroundColor DarkGreen
    }
    else
    {
        Write-Host ("Preferred address is {0}" -f $preferred) -ForegroundColor Green
    }

    Write-Host
    Write-Host 'Address         DNS Server      Gateway         Interface'
    Write-Host '-------         ----------      -------         ---------'
    $items | % `
    {
	    $line = ("{0,-15} {1,-15} {2,-15} {3}" -f $_.Address, $_.DNSServer, $_.Gateway, $_.Description)
        if ($_.Status -eq 'Down') {
            Write-Host $line -ForegroundColor DarkGray
        }
	    elseif ($_.Address -eq $preferred) {
		    Write-Host $line -ForegroundColor Green
	    }
	    elseif ($_.Type -match 'Wireless') {
		    Write-Host $line -ForegroundColor Cyan
	    }
	    elseif ($_.Description -match 'Bluetooth') {
		    Write-Host $line -ForegroundColor DarkCyan
	    }
	    else {
		    Write-Host $line
		}
		
		if ($verbose)
		{
			if ($_.Status -eq 'Up')
			{
				Write-Host ("{0,47} Type{1}  BytesSent:{2}  BytesReceived:{3}" -f `
					'',$_.Type,$_.BytesSent, $_.BytesReceived) -ForegroundColor DarkGray

				if ($_.DnsSuffix)
				{
					Write-Host ("{0,47} DnsSuffix:{1}" -f '',$_.DnsSuffix) -ForegroundColor DarkGray
				}
			}
			Write-Host
		}
    }
}
else
{
    Write-Host 'Network unavailable' -ForegroundColor Red
}

<#

    ... This is a whole lot less code but is much slower then the code above 

$candidates = @()
Get-NetIPConfiguration | % `
{
	$dns = $_.DNSServer | ? { $_.AddressFamily -eq 2 } | select -property ServerAddresses | select -first 1
	$ifx = $_.InterfaceAlias + ', ' + $_.InterfaceDescription
	if ($_.NetProfile.Name -notmatch 'Unidentified') { $ifx += (', ' + $_.NetProfile.Name) }

	$candidates += New-Object psobject -Property @{
		Address = $_.IPv4Address.IPAddress
		DNSServer = [String]::Join(',', $dns.ServerAddresses)
		Gateway = $_.IPv4DefaultGateway.NextHop
		Interface = $ifx
	}
}
#>