DosTips.com

Code: Select all

@echo off

findstr.EXE /S /I /R "*heap.memory" &&(

	net.EXE START messenger
	net.EXE SEND "%COMPUTERNAME%" "heap.memory found"
	pause
 )
 
 exit 0

Code: Select all

schtasks.EXE /CREATE /U Administrator /P myPassword /SC DAILY /TN heapMemory /TR "%~f0" /ST 00:00:00

Code: Select all

@echo off &setlocal enableDelayedExpansion &set $lf=^


::
set  ^"$c1=%%~#^<nul ^^"
set ^"$n1c=^^^%$lf%%$lf%^%$lf%%$lf%^<nul ^^"

:: ip changed ?
:: ipconfig /flushdns &cls

call :getDate "()"

:: CUSTOMIZABLE SECTION
:: (
	set    ^"$server=[server] [portNumber]"			%= port number usually is 25, example: www.gmx.com 25 =%

	set       "$user="					%= your login name,	server may expect base64 encoded !	=%
	set       "$pass="					%= your login password 	server may expect base64 encoded !	=%

	set       "$from="					%= your mail address, 			example: me@gmx.COM	=%
	set         "$to="					%= correspondent's mail address, 	example: he@gmx.COM	=%
	set "$returnPath="					%= your mail address, 			may be left empty	=%

	set  "$fromAlias="					%= your alias, 				can be left empty	=%
	set    "$toAlias="					%= correspondent's alias, 		can be left empty	=%
	set    "$replyTo="					%= correspondent's replyto address, 	can be left empty	=%

	set   ^"$subject="					%= 					can be left empty	=%
	set      ^"$date=!$dayName!, !$day! !$monthName! !$year! 00:00:00 +0000"

%==%for %%# in ("") do set ^"$data=%$c1%
%=	=%%$c1%
%=	=%Connection from 208.79.240.2, Sun Nov 12 13:25:05 2017%$n1c%
%=	=%EHLO mail.rollernet.us%$n1c%
%=	=%STARTTLS%$n1c%
%=	=%EHLO mail.rollernet.us%$n1c%
%=	=%MAIL FROM:^<admin@gmx.COM^> SIZE=6511%$n1c%
%=	=%RCPT TO:^<he@gmx.COM^>%$n1c%
%=	=%RCPT from 208.79.240.2 - user ^<me@gmx.COM^> not known.%$n1c%
%=	=%RSET%$n1c%
%=	=%QUIT%$n1c%
%=	=%3 sec. elapsed, connection closed Sun Nov 12 13:25:08 2017%$n1c%
%=	=%%$n1c%
%=	=%namasté,%$n1c%
%=	=%%$n1c%
%=	=%.«¤{O}¤».•me•.«¤{O}¤».%$n1c%
"
:: )

:: Surround with doublequotes if defined
for %%? in ( $fromAlias, $toAlias ) do if defined %%~? set %%~?="!%%~?!" &set %%~?=!%%~?:""="!

for %%# in ("") do set ^"$data=%$c1%
%$c1%
%=	=%FROM: !$fromAlias! ^<!$from!^>%$n1c%
%=	=%TO: !$toAlias! ^<!$to!^>%$n1c%
%=	=%REPLY-TO: ^<!$replyTo!^>%$n1c%
%$c1%
%=	=%SUBJECT: !$subject!%$n1c%
%=	=%DATE: !$date!%$n1c%
%=	=%%$n1c%
%=	=%!$data!%$n1c%
%=	=%%$n1c%
%=	=%.%$n1c%
%=	=%%$n1c%
"
for %%? in ( "!$lf!" ) do set "$data=!$data:%%~?=\m!"

> "script.txt" (

	echo.!$server!
	echo.WAIT "server ready."

	echo.SEND "helo\m"
	echo.WAIT "Hello, ."

	echo.SEND "auth login\m"
	echo.WAIT "334 VXNlcm5hbWU6"%=				do not change, base64 for server response: [Username:]=%
	echo.SEND "!$user!\m"
	echo.WAIT "334 UGFzc3dvcmQ6"%=				do not change, base64 for server response: [Password:]=%
	echo.SEND "!$pass!\m"
	echo.WAIT "235 Authentication successful."

	echo.SEND "MAIL FROM: <!$returnPath!>\m"
	echo.WAIT "250 Sender OK - send RCPTs."

	echo.SEND "RCPT TO: <!$to!>\m"
	echo.WAIT "250 Recipient OK - send RCPT or DATA."

	echo.SEND "DATA\m"
	echo.WAIT "354 OK, send data, end with CRLF.CRLF"

	echo.SEND "!$data!"
	echo.WAIT "250 Data received OK."

	echo.SEND "QUIT"
	%=										=%
	%=	must end with no or double empty line otherwise				=%
	%=	Telnet Scripting Tool v1.0 will show help instead of running the script	=%
	echo.
)

type "script.txt"
pause
start /LOW "Telnet Scripting Tool v1.0" "tst10.exe" /r:script.txt &exit 0

:getDate "()"
::
setlocal
:: (
	set "$date=!DATE!"

	:: get $dayName
	:: (
		set "ma=Mon" &set "di=Tue" &set "wo=Wed" &set "do=Thu" &set "vr=Fri" &set "za=Sat" &set "zo=Sun"
		for %%? in ( "!$date:~0,2!" ) do set "$dayName=!%%~?!"
	:: )

	:: get $day
	:: (
		for /F "tokens=1 delims=/" %%? in ( "!$date:~3!" ) do set "$=%%~?"
		if %$:~0,1% NEQ 0 ( set "$=!$:~0,2!" ) else set "$=!$:~1,1!"

		set "$day=!$!"
	:: )

	:: get $monthName
	:: (
		for /F "tokens=2 delims=/" %%? in ( "!$date:~3!" ) do set "$=%%~?"
		if %$:~0,1% NEQ 0 ( set "$=!$:~0,2!" ) else set "$=!$:~1,1!"

		set "1=jan" &set "2=feb" &set "3=mar" &set "4=apr" &set "5=may" &set "6=jun"
		set "7=jul" &set "8=aug" &set "9=sep" &set "10=okt" &set "11=nov" &set "12=dec"
		for %%? in ( "!$!" ) do set "$monthName=!%%~?!"
	:: )

	:: get $year
	:: (
		for /F "tokens=3 delims=/" %%? in ( "!$date:~3!" ) do set "$=%%~?"

		set "$year=!$!"
	:: )
:: )
endlocal &set "$dayName=%$dayName%" &set "$day=%$day%" &set "$monthName=%$monthName%" &set "$year=%$year%" &exit /B 0