Changeset 1837 for box/chris/general/bin/bbackupd/win32/NotifySysAdmin.vbs

Timestamp:

14/09/2007 23:15:18 (5 years ago)

Author:

chris

Message:

Log an error in the System Event Log if sending email fails.

File:

• box/chris/general/bin/bbackupd/win32/NotifySysAdmin.vbs (modified) (2 diffs)

box/chris/general/bin/bbackupd/win32/NotifySysAdmin.vbs

@@ -66 +66 @@
 Sub SendMail(from,sendto,subject,body)
         Set objEmail = CreateObject("CDO.Message")
+        Set WshShell = CreateObject("WScript.Shell")
         Dim cdoschema
         cdoschema = "http://schemas.microsoft.com/cdo/configuration/"
+        
         With objEmail
                 .From = from
@@ -80 +82 @@
                 End If
         End With
-        objEmail.Send
+        On Error Resume Next
+        rc = objEmail.Send
+        If rc Then
+                WshShell.Exec "eventcreate /L Application /ID 201 /T WARNING " _
+                        & "/SO ""Box Backup"" /D """ & args(0) _
+                        & " notification sent to " & sendto & "."""
+        Else
+                WshShell.Exec "eventcreate /L Application /ID 202 /T ERROR " _
+                        & "/SO ""Box Backup"" /D ""Failed to send " & args(0) _
+                        & " notification to " & sendto & "."""
+        End If
 End Sub