Windows Scripting Host: Email generieren
Windows Server 2003
Hallo zusammen,
wie muss eine Windows Scripting Host-Datei oder ähnliches aussehen, mit der ich eine Email generieren kann?
Folgende Daten sollten enthalten sein:
Prioriät: hoch (optional)
Von: Admin@xyz.de
An: IT@xyz.de
Betreff: SRVWEB02, Festplattenspeicher zu gering! (Beispiel)
Email-Test: bla, bla, bla
Diese Datei soll von einem Überwachungstool gestartet (Systemmonitor) werden. Der Punkt ist easy und bereits klar. Bloß vom Scripting hab ich leider (noch) keine Ahnung.
Wie muss ich das Script abspeichern, damit es auch funktioniert (test.vbs)?
Es wäre super, wenn Ihr mir bald helfen könntet. Dieses Thema ist sehr brisant bei uns.
Herzlichen Dank!
Gruß, Manuela
Hallo zusammen,
wie muss eine Windows Scripting Host-Datei oder ähnliches aussehen, mit der ich eine Email generieren kann?
Folgende Daten sollten enthalten sein:
Prioriät: hoch (optional)
Von: Admin@xyz.de
An: IT@xyz.de
Betreff: SRVWEB02, Festplattenspeicher zu gering! (Beispiel)
Email-Test: bla, bla, bla
Diese Datei soll von einem Überwachungstool gestartet (Systemmonitor) werden. Der Punkt ist easy und bereits klar. Bloß vom Scripting hab ich leider (noch) keine Ahnung.
Wie muss ich das Script abspeichern, damit es auch funktioniert (test.vbs)?
Es wäre super, wenn Ihr mir bald helfen könntet. Dieses Thema ist sehr brisant bei uns.
Herzlichen Dank!
Gruß, Manuela
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 28492
Url: https://administrator.de/contentid/28492
Ausgedruckt am: 20.11.2024 um 01:11 Uhr
11 Kommentare
Neuester Kommentar
Einfachstes Beispiel, wenn man WSH nehmen will, ist die CDO Objects zu verwenden (gibts ab Win 2000).
Bsp:
Set oConf = CreateObject("CDO.Configuration")
Set oMess = CreateObject("CDO.Message")
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpserver.domain.de"
oConf.Fields.Update
Set oMess.Configuration = oConf
oMess.From = "testuser@domain.de"
oMess.To = "user@domain.de"
oMess.Subject = "Test-Email"
oMess.TextBody = "Body-Text"
oMess.Send
Es gibt noch viel mehr Konfigurationsmöglichkeiten (Authentifizierung etc.).
Am besten Bei MS nachlesen: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dncdsy ...
Bsp:
Set oConf = CreateObject("CDO.Configuration")
Set oMess = CreateObject("CDO.Message")
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpserver.domain.de"
oConf.Fields.Update
Set oMess.Configuration = oConf
oMess.From = "testuser@domain.de"
oMess.To = "user@domain.de"
oMess.Subject = "Test-Email"
oMess.TextBody = "Body-Text"
oMess.Send
Es gibt noch viel mehr Konfigurationsmöglichkeiten (Authentifizierung etc.).
Am besten Bei MS nachlesen: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dncdsy ...
Salü Zäme
Leider hat bei mir das oben genannte Beispiel nicht funktioniert!
Er meldet mir immer das die Klasse o.Mess nicht vorhanden ist!
Weiss jemand da weiter?
Ich möchte dazu auch noch eine Authentifiezierung für den smtp Server
einbauen, leider fand ich keine vorhanden Lösungen
Danke im voraus für die Antworten
Gruess Itfeak
Leider hat bei mir das oben genannte Beispiel nicht funktioniert!
Er meldet mir immer das die Klasse o.Mess nicht vorhanden ist!
Weiss jemand da weiter?
Ich möchte dazu auch noch eine Authentifiezierung für den smtp Server
einbauen, leider fand ich keine vorhanden Lösungen
Danke im voraus für die Antworten
Gruess Itfeak
Stammt so aus einem Buchbeispiel.
In Zeile 3 definiert man, über welchen SMTP Server man verschicken will. Wieso MS den Feldnamen als URL ausgelegt hat, keine Ahnung.
Hier nochmal in besser lesbarer Form:
Bei mir tuts. Ich habs nochmals ausprobiert.
Der Link bei MS stimmt nicht mehr, CDO wird inzwischen hier diskutiert: http://msdn.microsoft.com/en-us/library/aa139845.aspx
In Zeile 3 definiert man, über welchen SMTP Server man verschicken will. Wieso MS den Feldnamen als URL ausgelegt hat, keine Ahnung.
Hier nochmal in besser lesbarer Form:
Set oConf = CreateObject("CDO.Configuration")
Set oMess = CreateObject("CDO.Message")
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtpserver.domain.de"
oConf.Fields.Update
Set oMess.Configuration = oConf
oMess.From = "testuser@domain.de"
oMess.To = "user@domain.de"
oMess.Subject = "Test-Email"
oMess.TextBody = "Body-Text"
oMess.Send
Der Link bei MS stimmt nicht mehr, CDO wird inzwischen hier diskutiert: http://msdn.microsoft.com/en-us/library/aa139845.aspx
Mein dll hat die Version 6.5.5757 neuer als deine!
Möglicherweise haben sich da die Parameter geändert, würde auch erklären, wieso die MS Website nicht mehr gültig ist.
Unter http://msdn.microsoft.com/en-us/library/ms526497(EXCHG.10).aspx gibts ein Beispiel, wie es jetzt aussieht, eventuell könntest Du das mal probieren.
Als Batch Tool fürs versenden schau mal nach blat: http://www.blat.net/
Das verwenden wir in der Firma.
Das verwenden wir in der Firma.