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

Dim ErrTagErrTag = false Dim RecoveredTagRecoveredTag = falseFunction DemoComponent1print "Enter component"If not ErrTag Thenprint "Start recovery"'call recoveryRecovery "DemoComponent1"RecoveredTag = trueprint "Recovery successfully"RecoveredTag = falseelseprint "Start Component body" End IfEnd FunctionFunction DemoComponent2print "Enter component"If not ErrTag Thenprint "Start recovery"'call recoveryRecovery "DemoComponent2"RecoveredTag = trueprint "Recovery successfully"RecoveredTag = falseelseprint "Start Component body" 'RecoveredTag = falseEnd IfEnd FunctionFunction Recovery(ComponentName)If not RecoveredTag Thenprint "Implement recovery"'recoverIf ComponentName =  "DemoComponent1" ThenErrTag = trueEnd IfRecoveredTag = trueset ReCallComponent = getref(ComponentName) ReCallComponentelse'log errorprint "Recovery failed, log error."'reset recoveryRecoveredTag = false'raise the errorerr.raise 888,"Stop Execution","Stop Current Test Scenario"End If End FunctionOn error resume nextprint "1st============================"DemoComponent1print err.descriptionprint "2nd============================"ErrTag = falseDemoComponent2print err.description