Logs used network bandwidth for some time

network_analysis.ps1

# Configuration
$run_duration_seconds = 10
$read_delay_milliseconds = 500
$log_file = "log.txt"
$verbose = $true

# Network statistics
$statistics = @{}
$start_time = Get-Date
$end_time = $start_time.addSeconds($run_duration_seconds)
# Repeat for given duration
while($end_time -gt (Get-Date)){
	# Iterate through current available network interfaces
	foreach($net_interface in (Get-WmiObject -class Win32_PerfFormattedData_Tcpip_NetworkInterface)) {
		# Extract relevant interface information
		$name = $net_interface.name
		$bps = $net_interface.BytesTotalPersec * 8
		$bps_max = $net_interface.CurrentBandwidth
		# Save or update statistics
		if(!$statistics.ContainsKey($name)){
			$statistics.Add($name, @($bps, $bps_max))
		} else {
			$item = $statistics.Get_Item($name)
			$item[0] += $bps
			$item[1] += $bps_max
		}
		# Output current activity if configured
		if($verbose -and $bps -gt 0) {
			Write-Host ("{0};{1};{2}/{3}" -f (Get-Date), $name, $bps, $bps_max)
		}
	}
	# Wait some time till next read
	Start-Sleep -milliseconds $read_delay_milliseconds
}
# Log statistics
"Time: {0} - {1}" -f $start_time, $end_time | Out-File $log_file -Append
$statistics | Format-Table @{Label="Interface"; Expression={$_.Name}}, @{Label="Coverage (in %)"; Expression={$_.Value[0] / $_.Value[1] * 100}} | Out-File $log_file -Append