This subroutine we use to send notifications by email of scripts completing and/or stopping due to an error.
Sub Send_Message(Msg) Dim EmailTo, EmailBcc, EmailFrom, EmailSubject, EmailCc Dim ObjSendMail, Flds Dim HTML ' ---------------- CHANGE EMAIL INFO HERE --------------------------- EmailFrom = "[email protected]" EmailTo = "[email protected]" EmailSubject = "Your subject here" & Msg ' --------------Define Mail Options---------------------------------- Dim Mailer As Object, MailConf As Object, MCFields As Object Set Mailer = CreateObject("CDO.Message") Set MailConf = CreateObject("CDO.Configuration") Set MCFields = MailConf.Fields MCFields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing"; ) = 2 'Enter your email server/relay server below MCFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver ") = "snmp.server.net" MCFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl ") = False 'Use SSL for the connection (True or False) MCFields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnec tiontimeout") = 60 MCFields.Update ' ----------------- Create Body of Email for Script Notification ------------------------ If Left(Msg, 4) = "****" Then HTML = HTML & "<html><head></head><body>" & Msg & "</body></html>" Else HTML = HTML & "<html>" HTML = HTML & "<head>" HTML = HTML & "<title>Your Title Here</title>" HTML = HTML & "</head>" HTML = HTML & "<body>" HTML = HTML & "<h3 align='center'>Script Completion/Error</br>" HTML = HTML & "</body></html>" End If 'send email Set Mailer.Configuration = MailConf 'Mailer.addattachment (strInputFile) Mailer.To = EmailTo Mailer.Cc = EmailCc Mailer.From = EmailFrom Mailer.Subject = EmailSubject Mailer.HTMLBody = HTML Mailer.Send HTML = "" EmailCc = "" End Sub Matt ________________________________ From: [email protected] [mailto:[email protected]] Sent: Wednesday, July 01, 2009 4:24 PM To: [email protected] Subject: [talkbws] SNMP - I Received a request from our operations section to start using SNMP notification for some of the scripts we have deployed. Has anyone successfully used the SNMP functionality? Background: We have 15 VM clients running a continual process against our billing system and we have asked operations to monitor them all. They have "What's Up Gold" as a dashboard solution for monitoring their other servers, routers, etc. We're going to try to add BW scripts into their monitoring process for when a script errors or stalls. Jim Mullowney | Systems Consultant | Information Services | [email protected] <mailto:[email protected]> | www.billingsclinic.org <http://www.billingsclinic.org/> Billings Clinic | 2800 Tenth Avenue North - P.O. Box 37000 | Billings Montana 59107-7000 | (406) 657-3823 | Fax (406) 657-3771 --- To post a message to this list, send mail to: [email protected] You are currently subscribed as: [email protected] Unsubscribe in the customer center on our website: http://www.bostonworkstation.com/customer_center/virtual_user_group_talk .aspx --- To post a message to this list, send mail to: [email protected] You are currently subscribed as: [email protected] Unsubscribe in the customer center on our website: http://www.bostonworkstation.com/customer_center/virtual_user_group_talk.aspx
