VBScript中的异常处理

On Error Resume Next (打开错误处理功能) 和
On Error GoTo 0 (关闭错误处理功能)

向上层抛出异常： Err.Raise Err.Number

 

弹出错误提示框

MsgBox的函数说明

 

 

http://www.pcdog.com/edu/vbscript/2005/10/p075747.html

 

 

On   Error   Resume   Next

'可能出现异常的脚本语句

If   Err   <>   0   Then
     MsgBox   "An   error   occurred:   "   &   Err.Description
Else
     MsgBox   "Success! "
End   If

 

测试例子：

 On Error Resume Next
'下面一行代码会在MSXML 4.0没有被安装或者已经损坏的情况下产生错误
Set myVar = Server.CreateObject("MSXML2.DOMDocument.4.0")
If Err.Number <> 0 Then
' 在这里处理错误
' 结束错误处理，避免以后发生的错误无法被发现
On Error GoTo 0
Else
' myVar 现在指向 MSXML 4.0 DOMDocument的一个实例
' 结束错误处理，避免以后发生的错误无法被发现
On Error GoTo 0
End If

 

 例子2：

 

Function Test1
    On Error Resume Next
    Test2
     If Err.Number <> 0 Then  '测试结果，当Test2出错抛异常时，我这里不能捕获
        WScript.Echo "Exception!!!"
     End If
End Function

Function Test2
    On Error Resume Next
    Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
    Set GetWMIService = objSWbemLocator.ConnectServer("kk")
    If Err.Number <> 0 Then '这里出错时，我想把异常抛出去，不处理
        Err.Raise Err.Number
    End If
End Function

Test2