在VB脚本中调用另一个文件中的函数

Question

我在QTP中使用了测试驱动程序脚本（testset Driver.vbs），在其中我试图在另一个文件中调用一个函数。我以为我可以将它添加到testset driver.vbs：

Function IncludeAOA
Dim objFSO, objFile, AR1

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFile = objFSO.OpenTextFile("\\Server1\QTP Files\Community\Driver Scripts\AOAReg.vbs", 1)
    AR1 = objFile.ReadAll
    objFile.Close
    ExecuteGlobal AR1
End Function

我调用似乎有效的IncludeAOA函数。但是，当它到达ExecuteGlobal AR1行时，它会以

失败

  

错误：字符无效，代码：800A0408。

任何人都能看到我错过的东西吗？

Answer 1

AR1 - 即AOAReg.vbs中的代码 - 应该受到责备。尝试使用cscript AOAReg.vbs“运行”它。如果没有显示错误（包括行号），请发布代码或检查该文件的编码。