Oracle 10g备份指南
'This script emails the log file for a backup and searches it for thephrase "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
页:
[1]