我有一个调用VBScript(.vbs)程序的batch file。 调用它之后,我的批处理脚本检查%errorlevel%
来查看.vbs程序是否失败。 我可以使用WScript.Quit(1)
在.vbs程序中用退出代码表示失败。
但是,我只能明确地做到这一点。 如果发生意外的运行时错误,.vbs会退出,并出现错误对话框, 但退出代码为零,所以我的batch file认为它已经成功! 我如何改变这种行为?
如果你想说,使用on error goto
,不要打扰…该语法是在常规的VB中可用,而不是在VBScript中。
我想到了一个开箱即用的解决方案…谁说0必须意味着成功? VBScript有时会返回一个失败的返回代码,为什么不接受呢? 采用0作为(至少一个可能的)失败代码,并将另一个数字(例如10)作为“成功代码”。
在脚本的末尾,把WScript.Quit(10)。 如果一切都成功的话,那只会受到打击。 然后在调用的批处理文件中使用“if%errorlevel%== 10”代替“if errorlevel 1”
编辑 :暂时(见警告)提出这一点,我很快就开始认为这是一个非常糟糕的主意,但我留在这里为后代。 不使用这个的最有说服力的理由来自Microsoft的Eric Lippert ,他从事VBScript的设计和实现。 他在回答另一个问题时指出: VBScript不保证终止程序总是运行 。 这可能意味着这在有未处理的错误的情况下有时不会返回非0退出代码。
我想我个人将来会使用'包装器批处理文件,从cscript退出代码'减去1。
我喜欢fmunkert链接到的解决方案,但是我认为它需要你把你的代码放在一个特定的Class_Initalize中,而这个Class_Initalize最好是笨拙的。 我设计了一个不需要这个的相关解决方案。 您只需在代码的末尾“提交”一个成功的结果; 如果未被调用,则任何异常都会导致ExitCodeHandler的Class_Terminate实例设置非零的退出代码。
Option Explicit Class ExitCodeHandler private exit_code Public Sub Commit() exit_code = 0 End Sub Private Sub Class_Initialize() exit_code = -1 ' this exit code will be returned if Commit is never called End Sub Private Sub Class_Terminate() if exit_code<>0 then WScript.Quit(exit_code) End Sub Public Sub Quit(exitCode) Commit WScript.Quit(exitCode) ' exit code will be respected since we have committed End Sub End Class ' create one of these at the start: Dim ech: Set ech = New ExitCodeHandler WSCript.StdOut.WriteLine "Hello" s = "" ' undeclared variable causes runtime error - comment out to see success. ' WScript.Quit(-4) ' before a commit, -1 is returned due to the Class_Terminate ' Commit at the end ech.Commit ' WScript.Quit(-5) ' after a commit, -5 is returned
请注意,这个成语在C ++中被大量使用,它被称为RAII(资源获取是初始化)
你当然可以修饰这个类来支持其他的退出代码,错误消息等等。你可能想把它放在一个普通的vbs文件中,并使用vbscript中的includes来分享它。
我不知道由于在VBScript中的一个exeption在堆栈展开期间调用WScript.Quit的缺点的全部细节。 我已经发现了以下内容:
WScript.Quit
之前始终调用ExitCodeHandler.Commit,或者调用提供的ExitCodeHandler.Quit
来代替它。 然而,依靠这两种方法中的任何一种都不一定是实际的/可能的,而且这种方法相当没有惯用作用,并且可能不会维护人员。 Class_Terminate
对象被终止(即在 ExitCodeHandler的Class_Terminate
调用WScript.Quit之后),您似乎得到一个错误。 您可能会获得与正在销毁的任何COM对象类似的行为。 我不知道VBScript以什么顺序破坏对象(或者即使有保证),所以我在另一个问题上提出了这个问题 。 正如你所说,所有可用的是On Error Resume Next
,所以你不得不使用的模式:
On Error Resume Next ThingWithAChanceOfThrowingAnError ... If (Err.number <> 0) then PrintErrorAndQuitWith1(Err.Description)
你可以,如果它是一个选项,而是使用jscript而不是更好的异常处理支持,包括一个简单的方法来返回任何异常的非零退出代码。 看到为什么我的JScript(Windows脚本宿主)以未捕获的异常退出0?
这是我们选择jscript而不是vbscript的第一个原因(当我们必须使用其中的一个时!)
您可以使用本文中描述的技术。 它要求你将脚本包装在一个VBScript类中。