Блог

Файл VBScript, хранящийся в общей сети, должен использоваться UFT (который установлен на CITRIX)

На приведенном ниже скриншоте можно получить доступ к файлу Excel в том же сетевом расположении, но я не могу открыть файл VBScript. [Строка с 1 по 12]

Файл «Test1.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, а не в той же сети, что и файл.

Я бы посоветовал вам сопоставить сеть с буквой диска, например. Z:

Таким образом, вы сможете ссылаться на папку с файлом vbs, объявив местоположение папки vbs как:

 vbsfolder = "Z:Filesrpl_pt_at"
  

Теперь вы можете использовать расположение папки с файлами и добавить имя файла vbs как:

 vbsfilelocwithname = vbsfolder amp; "\" amp; "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