Eventlog Mailer

eventtriggers.exe /create /tr "Name des Triggers" /l "Ereignisart" /t "Ereignistyp" /so "Quelle" /eid "Ereignis-ID" /tk "BEFEHL"  

@echo off & setlocal EnableDelayedExpansion
cls
color 4F && title


set verHV=1.0




:MENU
echo.
echo 						~~~~~~~~~~~~~~~~~~~~~~~~~
echo								EventMail %verHV%
echo 						~~~~~~~~~~~~~~~~~~~~~~~~~
echo.
echo.
echo.
echo 	Was soll bei Auftreten des Eventlog-Eintrags geschehen?
echo.
echo.
echo.
echo.
echo 		(1) Eine E-Mail soll verschickt werden.
echo.
echo.
echo 		(2) Ein Batch/Befehl soll ausgefuehrt werden.
echo.
echo.
echo.
echo.
echo.
echo.
echo.
set /p eingabe="Ihre Eingabe und [ENTER]: "  
ping localhost -n 1 > NUL





:Eventde
cls
echo.
echo 						~~~~~~~~~~~~~~~~~~~~~~~~~
echo								EventMail %verHV%
echo 						~~~~~~~~~~~~~~~~~~~~~~~~~
echo.
echo.
echo.
set /p hvtr="Name des Triggers: "  
echo.
set /p hvl="Ereignisart (1)Anwendung, (2)System, (3)Sicherheit: "  
echo.
echo 		#################### W I C H T I G ##################
echo 		#        Folgende drei Angaben sind optional.       #
echo 		#       Mindestens EINE muss angegeben werden.      #
echo 		# Je mehr Sie eingeben, um so genauer das Ergebnis. #
echo 		#####################################################
echo.
set /p hvt="Ereignistyp (1)Fehler, (2)Information, (3)Warnung: "  
echo.
set /p hvso="Quelle (WinMgmt): "  
echo.
set /p hveid="Ereignis-ID (5603): "  
echo.

if "%hvl%" equ "1" set hvlx=APPLICATION  
if "%hvl%" equ "2" set hvlx=SYSTEM  
if "%hvl%" equ "3" set hvlx=SECURITY  

if "%hvt%" equ "1" set hvtx=ERROR  
if "%hvt%" equ "2" set hvtx=INFORMATION  
if "%hvt%" equ "3" set hvtx=WARNING  





ping localhost -n 1 >NUL
cls
echo.
echo 						~~~~~~~~~~~~~~~~~~~~~~~~~
echo								EventMail %verHV%
echo 						~~~~~~~~~~~~~~~~~~~~~~~~~
echo.
echo.
echo.
echo 			Name: %hvtr%
echo.
echo 			Ausloesername: %hvlx%
echo.
echo 			Ereignistyp: %hvtx%
echo.
echo 			Quelle: %hvso%
echo.
echo 			Ereignis-ID: %hveid%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
set /p Auswahl="Zur Korrektur bitte 3 eingeben, ansonsten mit ENTER weiter: "  

if "%Auswahl%" equ "3" goto Eventde  
if not "%Auswahl%" equ "3" goto Kreuzung  

:Kreuzung
if "%eingabe%" equ "1" goto Email  
if "%eingabe%" equ "2" goto Befehl  





:Email
cls
echo.
echo 						~~~~~~~~~~~~~~~~~~~~~~~~~
echo								EventMail %verHV%
echo 						~~~~~~~~~~~~~~~~~~~~~~~~~
echo.
echo.
echo.
echo.
set /p hvsmtp="SMTP-Server Name: "  
echo.
set /p hvrcpt="Ziel-Adresse: "  
echo.
set /p hvfrom="Absender-Adresse: "  
echo.
set /p hvsubj="Betreff: "  
echo.
set /p hvdata="Inhalt: "  

copy /Y bmail.exe %windir%system32>NUL

ping localhost -n 2 >NUL




cls
echo.
echo 						~~~~~~~~~~~~~~~~~~~~~~~~~
echo								EventMail %verHV%
echo 						~~~~~~~~~~~~~~~~~~~~~~~~~
echo.
echo.
echo.
echo 			SMTP-Server: %hvsmtp%
echo.
echo 			Ziel-Adresse: %hvrcpt%
echo.
echo 			Absender: %hvfrom%
echo.
echo 			Betreff: %hvsubj%
echo.
echo 			Inhalt: %hvdata%
echo.
echo.
echo.
echo.
echo.
echo.
echo.
set /p Auswahl="Zur Korrektur bitte 3 eingeben, ansonsten mit ENTER weiter: "  


if "%Auswahl%" equ "3" goto Email  
if not "%Auswahl%" equ "3" goto Mailer  




:Mailer
set hvsubj="%hvsubj%"  
set hvdata="%hvdata%"  
echo %windir%system32%mail.exe -s %hvsmtp% -t %hvrcpt% -f %hvfrom% -a %hvsubj% -b %hvdata%>mail.cmd
set Befehl=%windir%system32mail.cmd
copy /Y mail.cmd %windir%system32>NUL
del mail.cmd
if "%eingabe%" equ "3" goto Email  

GOTO DOIT






:Befehl

cls
echo.
echo 						~~~~~~~~~~~~~~~~~~~~~~~~~
echo								EventMail %verHV%
echo 						~~~~~~~~~~~~~~~~~~~~~~~~~
echo.
echo.
echo.
echo 			(1) Befehl oder (2) Batch?
echo.
set /p Auswahlq="Auswahl: "  
if "%Auswahlq%" equ "1" goto Befehla  
if "%Auswahlq%" equ "2" goto Befehlb  



:Befehla
echo.
echo.
set /p Befehl="Geben Sie den Befehl ein: "  
goto DOIT





:Befehlb
set Befehl=%windir%system32em.BAT
echo.
echo.
echo Erstellen Sie eine Batch Datei, und speichern Sie diese im System32-Ordner im Windows-Verzeichnis ab. Der Dateiname muss em.bat heissen!
notepad
echo.
echo.
echo Wenn dies erledigt ist mit beliebiger Taste fortfahren.

Pause>NUL

:DOIT
cls
echo.
echo 						~~~~~~~~~~~~~~~~~~~~~~~~~
echo								EventMail %verHV%
echo 						~~~~~~~~~~~~~~~~~~~~~~~~~
echo.
echo.
echo.
echo 			Daten werden verarbeitet...
echo.
echo.

ping localhost>NUL

set Befehl="%Befehl%"  





if "%hvtx%" equ "" set troq=1  
if "%hvso%" equ "" set trow=2  
if "%hveid%" equ "" set troe=3  

set grr=%troq%%trow%%troe%

if "%grr%" equ "1" goto nohvtx  
if "%grr%" equ "2" goto nohvso  
if "%grr%" equ "3" goto nohveid  
if "%grr%" equ "12" goto nohvtxhvso  
if "%grr%" equ "13" goto nohvtxhveid  
if "%grr%" equ "23" goto nohvsohveid  





:nohvtx
set hvso="%hvso%"  
set hvtr="%hvtr%"  
eventtriggers.exe /create /tr %hvtr% /l %hvlx% /so %hvso% /eid %hveid% /tk %Befehl%
goto endw


:nohveid
set hvso="%hvso%"  
set hvtr="%hvtr%"  
eventtriggers.exe /create /tr %hvtr% /l %hvlx% /t %hvtx% /so %hvso% /tk %Befehl%
goto endw


:nohvso
set hvtr="%hvtr%"  
eventtriggers.exe /create /tr %hvtr% /l %hvlx% /t %hvtx% /eid %hveid% /tk %Befehl%
goto endw


:nohvtxhvso
set hvtr="%hvtr%"  
eventtriggers.exe /create /tr %hvtr% /l %hvlx% /eid %hveid% /tk %Befehl%
goto endw


:nohvtxhveid
set hvtr="%hvtr%"  
set hvso="%hvso%"  
eventtriggers.exe /create /tr %hvtr% /l %hvlx% /so %hvso% /tk %Befehl%
goto endw


:nohvsohveid
set hvtr="%hvtr%"  
eventtriggers.exe /create /tr %hvtr% /l %hvlx% /t %hvtx% /tk %Befehl%
goto endw






:endw
echo.
echo.
echo.
echo Mit Tastendruck Programm beenden
pause>NUL
set hvtr=

set hvl=
set Auswahlq=
set Befehl=
set hvdata=
set hvsubj=
set hvfrom=
set hvrcpt=
set hvsmtp=
set hvt=
set hvlx=
set hvtx=
set hvso=
set hveid=
set eingabe=
set Auswahl=
set verHV=

eventtriggers /delete /tid *