EMail aus Eventlog-Eintrag autom. erzeugen
Hallo,
ich habe hier mehrere Windows 2003 R2 Server auf dem z.B. auch ein RAS-Server läuft. Ich möchte nun das die Einwahl protokolliert wird und die Einträge aus dem Eventlog mit Quelle RemoteAccess in eine eMail umgewandelt werden und in meinem eMail-System (Tobit David.fx 2011) auftauschen.
Hat jemand eine Idee wie ich sowas realisieren kann?
MfG corpse2001
ich habe hier mehrere Windows 2003 R2 Server auf dem z.B. auch ein RAS-Server läuft. Ich möchte nun das die Einwahl protokolliert wird und die Einträge aus dem Eventlog mit Quelle RemoteAccess in eine eMail umgewandelt werden und in meinem eMail-System (Tobit David.fx 2011) auftauschen.
Hat jemand eine Idee wie ich sowas realisieren kann?
MfG corpse2001
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 165728
Url: https://administrator.de/forum/email-aus-eventlog-eintrag-autom-erzeugen-165728.html
Ausgedruckt am: 23.12.2024 um 03:12 Uhr
2 Kommentare
Neuester Kommentar
Hi corpse2001,
sowas in der Art hatten wir auch am Laufen. Das Ganze besteht aus folgenden Befehlen / Dateien.
1) Zuerst musst du einen Event-Trigger anlegen:
Die Bedeutung der einzlenen Parameter entnimmst du der Hilfe.
2) eventlog.vbs:
Diese VBS-Datei liest immer die aktuelleste Meldung dazu aus. Evtl. Eventcode anpassen...
3) Die Batchdatei in der Empfänger, Betreff, etc... steht:
Der E-Mailversand haben wir über bmail.exe realisiert und die IP-Adresse im Exchange als Relay freigeschalten.
Grüße,
Dani
sowas in der Art hatten wir auch am Laufen. Das Ganze besteht aus folgenden Befehlen / Dateien.
1) Zuerst musst du einen Event-Trigger anlegen:
eventtriggers /create /T Information /L System /EID 20200 /SO RemoteAccess /tr VPN-Einwahl /tk "C:\Scripte\vpn_einwahl_mail\mail_send.bat"
2) eventlog.vbs:
' Es werden alle Events mit der ID "20200" und aus dem Bereich "System" ausgelesen.
' Mit "Exit For" wird sichergestellt, dass die Schleife nur einmal durchläuft.
strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colLoggedEvents = objWMIService.ExecQuery ("Select * from Win32_NTLogEvent Where LogFile = 'System' and EventCode ='20200'")
For Each objEvent in colLoggedEvents
Wscript.Echo objEvent.Message
Exit For
Next
3) Die Batchdatei in der Empfänger, Betreff, etc... steht:
@echo off
set sender=service@xxxx.de
set empf=administrator@xxxx.de
for /f "skip=3 tokens=6,7,10,11 delims= " %%a in ('cscript "C:\Scripte\vpn_einwahl_mail\eventlog.vbs"') do (
echo %%a: %%b > "%temp%\mailtext.txt"
echo %%c: %%d >> "%temp%\mailtext.txt"
)
bmail -s emailserver -t %empf% -f %sender% -a "VPN-Einwahl" -h -c -m "c:\temp\mailtext.txt"
del "%temp%\mailtext.txt"
Grüße,
Dani