Vbscript 从ALM运行测试时，无法在远程计算机上复制剪贴板详细信息

通过调用函数

ErrorrecoveryHandler（object）

，我在UFT中使用以下脚本进行恢复场景：

当我通过ALM在VM上运行我的应用程序时，出现了一个错误，上面的函数调用被触发，但我得到了一个错误：

运行错误：
ActiveX组件无法创建对象：“Mercury.Clipboard”

---

该ActiveX对象应注册为基本QTP/UFT安装的一部分。您可能需要尝试重新安装。

如中所述，例如，

Mercury.Clipboard

仅在安装QTPPlus时可用

---

没有它，就没有ClipboardObject.dll，它是实现

Mercury.Clipboard

的dll。奇怪但正确：如果您安装UFT，包括“Flight”示例项目，您还将安装ActiveX组件。 这样，使用Mecury剪贴板就不会有问题了

Function getClipBoardText(object)
    Dim objCB
    Set objCB = CreateObject("Mercury.Clipboard")
    Dim sClipText
    ' Assign clipboard contents to string variable sClipText.
    sClipText = objCB.GetText
    'getClipBoardText = sClipText
    Reporter.ReportEvent micFail, "There was an exception during execution", sClipText
End Function

Function ErrorrecoveryHandler(object)
    JavaWindow("LightSpeedEVoMain").JavaDialog("Error").JavaButton("Copy to Clipboard").Click
    Dim objCB
    Set objCB = CreateObject("Mercury.Clipboard")
    errorDetails = objCB.GetText
    Reporter.ReportEvent micFail, "There was an exception during execution", errorDetails
    JavaWindow("LightSpeedEVoMain").JavaDialog("Error").JavaButton("OK").Click
End Function