1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
option explicit
Dim LogFileObj, strLine, fso, Strlastfile, array1, array2,tmpFileObj
Const ForReading = 1
Const strLogFileName = "DumpFileLog.txt"
Const strTmpFileName = "Checklog.tmp"
Const strComplete = "Job Complete"
Const Subject = "Dump File Generation failed to execute"
Const MsgBody = "Please fix"
Const SMTPTimeout = 10
Const FromAddress = "ghtools@microsoft.com"
Const ToAddress = "siggib@microsoft.com"
'Const CCAddress = "2062951027@mobile.att.net"
Const cdoSendUsingPort = 2
Const MailServerName = "smarthost.dns.microsoft.com"
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.fileexists(strtmpfilename) Then
Set tmpFileObj = fso.opentextfile(strtmpfilename)
If not tmpfileobj.atendofstream Then
strlastFile = tmpfileobj.readline
Else
strlastfile = "blank" & vbtab & "file"
End If
tmpfileobj.close
Else
strlastfile = "blank" & vbtab & "file"
End If
'wscript.echo strlastfile
array2 = split(strlastfile,vbtab)
If fso.FileExists(strlogfilename) Then
Set LogFileObj = fso.OpenTextFile(strlogFileName, ForReading)
Else
wscript.echo "Logfile " & strlogfilename & " not found"
wscript.quit
End If
While not LogFileObj.atendofstream
strLine = LogFileObj.readline
Wend
array1=split(strline,vbtab)
If (Trim(array1(0)) = Trim(array2(0))) Then
wscript.echo subject & ": " & strline
mysendmail subject,strline
Set tmpfileobj=fso.createtextfile(strtmpfilename,true)
tmpfileobj.close
Else
wscript.echo "Everything seems OK"
Set tmpfileobj=fso.createtextfile(strtmpfilename,true)
tmpfileobj.writeline strline
tmpfileobj.close
End If
Sub MySendMail(StrSubject,msg)
Dim iMsg,iConf,Flds
Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = MailServerName
.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = SMTPTimeout
.Update
End With
With iMsg
Set .Configuration = iConf
.To = ToAddress
.CC = CCAddress
.From = FromAddress
.Subject = StrSubject
.textbody = Msg
.Send
End With
End Sub
|