$Profiles=@()
$Profiles +=(netsh wlan show profiles) | Select-String "\:(.+)$" | Foreach {$_.Matches.Groups[1].Value.Trim()}
$Profiles | Foreach{$SSID = $_ ; (netsh wlan show profile name="$_" key=clear)} |
            Select-String "Key Content\W+\:(.+)$" | 
                Foreach{$pass=$_.Matches.Groups[1].Value.Trim(); $_} |
                    Foreach{[PSCustomObject]@{Wireless_Network_Name=$SSID;Password=$pass}}
                        Format-Table -AutoSize
Start-Sleep -s 15