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

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 165728

Url: https://administrator.de/contentid/165728

Ausgedruckt am: 22.11.2024 um 14:11 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:

eventtriggers /create /T Information /L System /EID 20200 /SO RemoteAccess /tr VPN-Einwahl /tk "C:\Scripte\vpn_einwahl_mail\mail_send.bat"  

Die Bedeutung der einzlenen Parameter entnimmst du der Hilfe.

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

Diese VBS-Datei liest immer die aktuelleste Meldung dazu aus. Evtl. Eventcode anpassen...

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"  