Windows & DOS: Issues & Discussions

D:\oracle\admin\sid\bdump\alert.log

 
dim WshShell
dim f,fso,Filename
Dim arrFileLines() 
Const ForReading = 1
i = 0 
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFile = FSO.OpenTextFile("C:\\blat182_b\alert.log", 1) 
' create the output file here 
Set objoutputFile = FSO.CreateTextFile("C:\\blat182_b\result_new.txt") 
Do Until objFile.AtEndOfStream 
Redim Preserve arrFileLines(i) 
arrFileLines(i) = objFile.ReadLine 
i = i + 1 
Loop 
objFile.Close 
For l = Ubound(arrFileLines)-5 to Ubound(arrFileLines) 
' write the output to the file 
objoutputFile.writeline arrFileLines(l) 
Next 
'Close the output file 
objoutputFile.close 
Filename = "C:\\blat182_b\result_new.txt"
Set f = fso.OpenTextFile(FileName, ForReading, True)
FileText = f.ReadAll
f.close
IF InStr(FileText,"shutdown") Then
 'Trigger the email - use blat or bmail utility
 Set WshShell = WScript.CreateObject("WScript.Shell")
 WshShell.Run "C:\\blat182_b\\mailsend -d oracle.com -smtp 192.xx.xx.xx -t fareed@xxx.com -c fareed@xxxx.com -f oracle@server.ae -sub ""Critical Alert  Database not running"" -m message.txt", 1, True
 'clear out wshshell variable
 set wshShell = Nothing
END IF
WScript.Quit