VB скрипт для извлечения ответа исполняемого файла JAR - PullRequest
Новая
       17

VB скрипт для извлечения ответа исполняемого файла JAR

0 голосов
/ 23 мая 2018

У меня есть сценарий для запуска исполняемого файла JAR, а затем необходимо захватить ответ из командной строки. 

Option Explicit
    Dim StrCmd,Path,processFile,str
    Path = "D:\modulefolder" 
    processFile = "java -jar xxx.jar"
    StrCmd = "CD /D "& Path & " & " & processFile &""
    Call Run(StrCmd,1,False)
    Function Run(StrCmd,Console,bWaitOnReturn)
        Dim ws,MyCmd,Result, str1

        Set ws = CreateObject("wscript.Shell")
    'A value of 0 to hide the MS-DOS console
        If Console = 0 Then
            MyCmd = "CMD /K " & StrCmd & ""
            Result = ws.run(MyCmd,Console,bWaitOnReturn)
    *some code using sendkeys to type in command prompt****

Может кто-нибудь, пожалуйста, скажите мне, как я должен извлечь код ответа из командной строки наконец ..

например, я получаю код ответа 201 для прохода и 400 или 405 для сценариев отказа.

1 Ответ

0 голосов
/ 23 мая 2018

Перенаправьте вывод stdout и stderr в текстовый файл и прочитайте следующее: 

java -jar myApp.jar >file.txt 2>&1

Это перенаправит вывод из файла JAR в file.txt, который вы можете прочитать, используяFileSystemObject

Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
Dim File : Set File = Fso.OpenTextFile("Path/to/file.txt", 1)
Dim Text : Text = File.ReadAll

Text теперь содержит содержимое файла в качестве переменной для использования по мере необходимости.

...