Script.GetLastError 方法

GetLastError 方法

取得 Script 对象的最后运行时间错误

语法

screrr = Script.GetLastError

参数

ScriptError

返回 Script 对象的错误信息对象

Script

一个实例化的 Script 对象

注释

使用 Script.GetLastError 可以取得 Script 对象最后的错误信息，包括语法错误、运行错误等。返回信息存放在一个 ScriptError 对象中。

示例

下面的代码执行 err.box，如果执行过程中出现错误，则输出错误结果：

Set Script = CreateObject("NetBox.Script")
e = Script.Load("Err.box")
If e = 0 Then
    Script.SetGlobalObjects

    e = Script.Run
End If

If e = 404 Then
    Shell.Console.WriteLine "Bad Command"
ElseIf e <> 0 Then
    Set error = Script.GetLastError
    Shell.Console.WriteLine error.Category
    Shell.Console.WriteLine "Error Number: " & Hex(error.Number)
    Shell.Console.WriteLine "File: " & error.File
    Shell.Console.WriteLine "Line: " & error.Line
    Shell.Console.WriteLine error.Description & vbCRLF
    Set error = Nothing
End If

Set Script = nothing

err.box 的代码如下：

a = "asd" + 100

Sub OnScriptError
    Shell.Console.WriteLine "OnScriptError"
End Sub

Sub OnScriptEnd
    Shell.Console.WriteLine "OnScriptEnd"
End Sub

运行结果在控制台输出下面的信息：

OnScriptError
Microsoft VBScript runtime error
Error Number: 800A000D
File: \err.box
Line: 1
Type mismatch: '[string: "asd"]'

应用于

Script 对象 | ScriptObject 对象