2
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 165728
Url: https://administrator.de/contentid/165728
Printed on: April 18, 2024 at 20:04 o'clock
2 Comments
Latest comment
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
Next3) 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
Hallo Dani,
das ist henau das richtige. Danke für die Hilfe.
MfG
corpse2001
das ist henau das richtige. Danke für die Hilfe.
MfG
corpse2001
