# pretty print active interfaces
ipa() {		# v4
 ipconfig | perl -F: -ane '$name = $F[0] if /^(\w.*)$/; printf "%s %s", $name, $F[1] if /IPv4/'
 powershell Get-NetAdapter
}
ipa6() {	# v6
 ipconfig | perl -ane '$name = $& if /^\w.*:/; printf "%s %s\n", $name, $F[-1] if /IPv6/'
 powershell Get-NetAdapter
}