用VBS代码实现简单的场景恢复实例

Dim ErrTag
ErrTag = false

Dim RecoveredTag
RecoveredTag = false

Function DemoComponent1
print "Enter component"

If not ErrTag Then
print "Start recovery"
'call recovery
Recovery "DemoComponent1"
RecoveredTag = true
print "Recovery successfully"
RecoveredTag = false
else
print "Start Component body"

End If
End Function

Function DemoComponent2
print "Enter component"

If not ErrTag Then
print "Start recovery"
'call recovery
Recovery "DemoComponent2"
RecoveredTag = true
print "Recovery successfully"
RecoveredTag = false
else
print "Start Component body"
'RecoveredTag = false
End If
End Function

Function Recovery(ComponentName)
If not RecoveredTag Then
print "Implement recovery"
'recover
If ComponentName =  "DemoComponent1" Then
ErrTag = true
End If
RecoveredTag = true
set ReCallComponent = getref(ComponentName)
ReCallComponent
else
'log error
print "Recovery failed, log error."
'reset recovery
RecoveredTag = false
'raise the error
err.raise 888,"Stop Execution","Stop Current Test Scenario"
End If
End Function

On error resume next
print "1st============================"
DemoComponent1
print err.description
print "2nd============================"
ErrTag = false
DemoComponent2
print err.description