WScript не работает с рабочим процессом HPALM. Но отлично работает при выполнении в командной строке

Я настраиваю новый сценарий рабочего процесса HP ALM для вызова firefox и открытия двух вкладок в одном и том же.

Данный скрипт прекрасно работает в командной строке. Однако тот же сценарий не работает в рабочем процессе HP-ALM. Я уверен, что скрипт вызывается, но браузер Firefox не открывается. Отображаются размещенные оповещения для отладки скрипта и оповещения от скрипта.

Dim wshshell
Set wshshell = WScript.CreateObject("Wscript.Shell")

wshshell.run """firefox.exe"" www.google.com",1,False
wshshell.run """firefox.exe"" www.yahoo.com",2,False

Set wshshell = Nothing
wscript.quit

При нажатии кнопки в клиенте HP ALM Firefox должен открываться с двумя вкладками. Один с Google, а другой с домашней страницей Yahoo. Однако ни одна страница не открывается.


vbscript hp-alm
person Natarajan Ravichandran    schedule 21.06.2019    source источник
comment
Почему вы используете …,2,False в последнем run? Второй параметр — это стиль окна, а 2 означает Активирует окно и отображает его как свернутое окно. Я бы попробовал опустить как 2-й, так и 3-й параметры как wshshell.run """firefox.exe"" www.yahoo.com".   -  person JosefZ    schedule 21.06.2019
comment
Если вы найдете ответ полезным, вам следует рассмотреть возможность принять ответ и/или проголосовать за   -  person    schedule 15.08.2019

Ответы (1)


arrow_upward
0
arrow_downward

Наконец, помогло следующее решение;

ActionCanExecute()

Function ActionCanExecute()

    On Error Resume Next
    ActionCanExecute = DefaultRes
    browserName = "Mozilla Firefox"
    browserExeName = "Firefox.EXE"
    cmdLineArgPlatform = " -new-window "
    cmdLineArgIdc = " -new-tab "
    sURLPlatform = "www.google.com"
    sURLIdc = "www.yahoo.com"

    Set WSHShell = CreateObject("WScript.Shell")
    exePath = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\" & _
                     "CurrentVersion\App Paths\" & browserExeName & "\")

    'Open the URL
    sShellCmdPlatform = """" & exePath & """" & "" & cmdLineArgIdc & """" & sURLPlatform & """"
    MsgBox sShellCmdPlatform

    sShellCmdIdc = """" & exePath & """" & "" & cmdLineArgIdc & """" & sURLIdc & """"
    MsgBox sShellCmdIdc

    'MsgBox sFFExe      

    WSHShell.Run sShellCmdPlatform, vbHide
    WSHShell.Run sShellCmdIdc
    On Error Resume Next

    Set WSHShell = Nothing

    ActionCanExecute = DefaultRes

    On Error GoTo 0
End Function
person Natarajan Ravichandran    schedule 16.08.2019