Oracle 10g备份指南

周翔

'This script emails the log file for a backup and searches it for the　　
phrase "ORA-". If found, pages the recipients
　　
'Additional pager Numbers
　　
'   whodat - 7045551212@message.alltel.com
　　
'   whodis - 7045551313@messaging.nextel.com
　　
Dim ArgObj, var1, var2
　　
Set ArgObj = WScript.Arguments
　　
var1 = ArgObj(0)
　　
var2 = ArgObj(1)
　　
var3 = ArgObj(2)
　　
'email log files
　　
Dim WshSHell1 : set WshShell1 = CreateObject("WScript.Shell")
　　
WshShell1.Run("D:\oracle\admin\common\error\bmail -s 10.10.10.10 -t
　　
support1@thecountyoverthere.gov -f Oracle@thecountyoverhere.gov
　　
-h -a " &
　　
var1 & "  attached -m d:\oracle\admin\common\backup\logs\" & var1 &"")
　　
WshShell1.Run("D:\oracle\admin\common\error\bmail -s 10.10.10.10 -t
　　
support2@thecountyoverhere.gov -f Oracle@thecountyoverhere.gov
　　
-h -a " & var1
　　
& "  attached -m d:\oracle\admin\common\backup\logs\" & var1 &"")
　　
'msgbox "var1 = " & var1 & "  var2 = " & var2 & ""
　　
Const ForReading = 1, ForWriting = 2
　　
Set WshNetwork = WScript.CreateObject("WScript.Network")
　　
Dim lgmain : Set lgmain = CreateObject("Scripting.FileSystemObject")
　　
Dim lgmain2 : Set lgmain2 =
　　
lgmain.OpenTextFile("D:\Oracle\Admin\common\backup\logs\" & var2 &"",
　　
ForWriting, True)
　　
lgmain2.WriteLine "Processing began: " & Now
　　
lgmain2.WriteLine ""
　　
lgmain2.WriteLine ""
　　
Set objRegEx = CreateObject("VBScript.RegExp")
　　
objRegEx.Global = True
　　
objRegEx.Pattern = "ORA-"
　　
Set objFSO = CreateObject("Scripting.FileSystemObject")
　　
Set objFile = objFSO.OpenTextFile("D:\oracle\admin\common\backup\
　　
logs\" & var1 & "", ForReading)
　　
strSearchString = objFile.ReadAll
　　
objFile.Close
　　
Set colMatches = objRegEx.Execute(strSearchString)
　　
If colMatches.Count > 0 Then
　　
Dim WshSHell2 : set WshShell2 = CreateObject("WScript.Shell")
　　
WshShell2.Run("D:\oracle\admin\common\error\bmail -s 10.10.10.10 -t
　　
7045551414@my2way.com -f " & var3 & "@thecountyoverhere.gov -h -a "
　　
& var3 &
　　
"_BACKUP_ERRORS_FOUND")
　　
WshShell2.Run("D:\oracle\admin\common\error\bmail -s 10.10.10.10 -t
　　
support1@thecountyoverthere.gov -f " & var3 & "@thecountyoverhere.gov
　　
-h -a "
　　
& var3 & "_BACKUP_ERRORS_FOUND")
　　
WshShell2.Run("D:\oracle\admin\common\error\bmail -s 10.10.10.10 -t
　　
support2@thecountyoverhere.gov -f " & var3 & "@thecountyoverhere.gov
　　
-h -a "
　　
& var3 & "_BACKUP_ERRORS_FOUND")
　　
lgmain2.WriteLine "page completed"
　　
End If
　　
If colMatches.Count = 0 Then
　　
lgmain2.WriteLine "no problems found, no page required"
　　
End If