通过UFT执行存储在网络驱动器上的VBS文件

Question

UFT(安装在CITRIX上(将使用存储在共享网络上的VBScript文件

在下面的屏幕截图中，可以访问同一网络位置的Excel文件，但我无法打开VBScript文件。[第1行至第12行]

该文件是"；测试1.vbs"；显示在下方代码的第6行

下面代码中的第14、15、16行显示了尝试和调用它的通用方法

Set appExcel = CreateObject("Excel.Application")'excel application

appExcel.Application.Visible = True

'**********************
strArea = "\Filesrpl_pt_attest1.vbs"
strChain = "PT_Smoke"
'**********************

Set objWorkbook = appExcel.workbooks.open("\Filesrpl_pt_at"+ strChain + ".xlsx")
appExcel.Worksheets("Sheet1").Activate 'Activating the sheet"Scripts"

executefile strArea
invokeApplication "\Filesrpl_pt_attest1.vbs"
SystemUtil.Run "\Filesrpl_pt_attest1.vbs", " "

注意：VBS和Excel文件在网络上的同一位置

注意：UFT安装在Citrix上，与文件不在同一网络上

Answer 1

我建议您将网络映射到驱动器号，例如Z:

这样，您就可以通过将您的vbs文件夹位置声明为：来引用带有vbs文件的文件夹

vbsfolder = "Z:Filesrpl_pt_at"

现在，您可以使用文件夹位置并将vbs文件名附加为：

vbsfilelocwithname = vbsfolder & "\" & "test1.vbs"

然后使用这里描述的如何运行vbs脚本：https://www.learnqtp.com/forums/Thread-How-to-execute-the-two-vb-scripts-Consecutively

Dim oShell
Set oShell = CreateObject("Wscript.Shell")
oShell.run vbsfilelocwithname, , True