VBScript - Mailversand durch Exchange ohne OL

[MT2002 10]

Morsche zusammen,

 

ich hab schon die Boardsuche benutzt, bin aber auf nichts Brauchbares für eine Lösung von meinem Problem gestoßen.

Deswegen wollte ich mal fragen, ob jemand weiss, ob dies machbar ist.

 

Folgendes Szenario:

Es gibt verschiedene Backup-Server, die zentral von einem verwaltet werden.

Sollte ein Backupserver nicht durchlaufen, wird eine Mail an eine vorher bestimmte Adresse verschickt mit einem Attachment.

 

Dies soll nun in VBScript realisiert werden. Und wzar so, dass das VBScript Kontakt zum Exchange Server aufnimmt und die Mail über diesen intern verschickt !

Externe Adressen sind komplett außen vor. Was man braucht ist natürlich ein Exchange Konto, ganz klar. Nur besteht die Möglichkeit, mit einem Script über den Exchange Server interne Mails zu verschicken, so dass ich kein IIS oder sonstige Mailprogramme nutze?

 

Wäre super, wenn jemand Rat weiss :)

 

 

Cheerz!

MT

[GuentherH 61]

Hi.

 

Benutze einmal die Boardsuche, und suche nach BLAT.

 

LG Günther

[Martin0708 10]

hab sowas über .net gelöst. würde dir das helfen?

 

lg

martin

[MT2002 10]

Guenther: Blat habe ich früher schon einmal benutzt. Es sollte aber ganz ohne zusätzliche Software sein, falls dies geht.

 

Martin: Wie würde denn Deine Lösung aussehen? :)

[Das Urmel 10]

Würde es denn nicht einfach reichen, die Mail in das ..Mailroot..\PickUp Verzeichnis zu droppen?

[Tom250376 10]

Ja das geht mit VBScript,

dieses hier schickt mir über Exchange eine Email, wenn in der Ereignisanzeige ein Fehler auftaucht. Ein Absenderkonto brauchst du dann nicht.

 

Set wmi = GetObject("winmgmts:{(Security)}")

Set objEmail = CreateObject("CDO.Message")

Set sink = WScript.CreateObject("WbemScripting.SWbemSink","SINK_")

 

wql = "select * from __instancecreationevent where targetinstance isa 'Win32_NTLogEvent'"

wmi.ExecNotificationQueryAsync sink, wql

 

MsgBox "Warte auf Events! Bitte nicht bestätigen!", vbExclamation

 

' Mail versenden

Sub SINK_OnObjectReady(objObject, objAsyncContext)

 

if objObject.TargetInstance.logfile = "Security" then

'msgbox objObject.TargetInstance.logfile

else

if objObject.TargetInstance.eventtype=1 then

dim objSendMail_error

set objSendMail_error = CreateObject("CDO.Message")

objSendMail_error.From = "xpsrvpdc@xxx.de"

objSendMail_error.To = "m.toebbens@xxx.de"

objSendMail_error.Subject = "Fehler im Ereignisprotokoll"

objSendMail_error.TextBody = "Folgenden Fehler im Protokoll gefunden"&vbcr&"Protokoll: "&objObject.TargetInstance.logfile&vbcr&"EventID: "&objObject.TargetInstance.eventcode&vbcr&"Langtext: "&objObject.TargetInstance.message

objSendMail_error.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objSendMail_error.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xpsrvemail"

objSendMail_error.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objSendMail_error.Configuration.Fields.Update

objSendMail_error.Send

set objSendMail_error = Nothing

else

if objObject.TargetInstance.eventtype=2 then

dim objSendMail_warning

set objSendMail_warning = CreateObject("CDO.Message")

objSendMail_warning.From = "xpsrvpdc@xxx.de"

objSendMail_warning.To = "m.toebbens@xxx.de"

objSendMail_warning.Subject = "Warnung im Ereignisprotokoll"

objSendMail_warning.TextBody = "Folgende Warnung im Protokoll gefunden"&vbcr&"Protokoll: "&objObject.TargetInstance.logfile&vbcr&"EventID: "&objObject.TargetInstance.eventcode&vbcr&"Langtext: "&objObject.TargetInstance.message

objSendMail_warning.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

objSendMail_warning.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "xpsrvemail"

objSendMail_warning.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objSendMail_warning.Configuration.Fields.Update

objSendMail_warning.Send

set objSendMail_warning = Nothing

else

'msgbox objObject.TargetInstance.logfile

end if

end if

end if

End Sub

 

Gruß ToM

[woiza 10]

Hi,

 

schau dir das mal an.

 

Gruß

 

woiza

[MT2002 10]

Tom: Genau in der Art soll das aussehen ;)

Probier es gleich mal aus und pass es noch ein wenig an.

 

woiza: Das hatte ich auch schon ausprobiert :)

[woiza 10]

Tom: Genau in der Art soll das aussehen ;)

Probier es gleich mal aus und pass es noch ein wenig an.

 

woiza: Das hatte ich auch schon ausprobiert :)

 

 

Und?

 

Hats nicht funktioniert?