вывод VBScript на консоль

165

Что такое команда или самый быстрый способ вывода результатов на консоль с использованием vbscript?

Регми
источник

Ответы:

311

Ты имеешь в виду:

Wscript.Echo "Like this?"

Если вы запустите его в wscript.exe(обработчик по умолчанию для расширения .vbs, так что вы получите, если дважды щелкнуть скрипт), вы получите диалоговое окно «MessageBox» с вашим текстом в нем. Если вы запустите его, cscript.exeвы получите вывод в окне консоли.

Эван Андерсон
источник
1
Вы можете непосредственно использовать на wscript.exe функция MsgBox("text")или , MsgBox(object.property)но Wscript.Echoпроще писать. Спасибо.
m3nda
22
Неинтуитивно для меня, WScript.Echo должен использоваться для того, работаете ли вы через WScriptили CScript. То есть, неCScript.Echo , в случае , если в будущем Googlers чудо. (Однако очень рад, что msgboxes исчезли [при запуске с cscript]; спасибо.)
ruffin
1
@GabrielStaples - Не с запасом WScript.Echo. Полагаю, если вы хотите полностью остаться в рамках WScript, вы можете сделать что-то ужасно хитрое, например, Exec, запустив другой процесс, чтобы отправить SendKeys родительскому процессу, чтобы закрыть MessageBox.
Эван Андерсон
4
На самом деле, я только что нашел этот popupметод. Очень похоже на, echoно позволяет вам указать тайм-аут, после которого он автоматически закроет всплывающее окно. Очень удобно и просто в использовании: technet.microsoft.com/en-us/library/ee156593.aspx
Габриэль Стейплз
63

Это было найдено в сценариях Dragon-IT и в хранилище кода .

Вы можете сделать это с помощью следующего и держаться подальше от различий cscript / wscript, что позволит вам получить тот же вывод на консоль, что и у командного файла. Это может помочь, если вы вызываете VBS из командного файла и вам нужно, чтобы он выглядел без проблем.

Set fso = CreateObject ("Scripting.FileSystemObject")
Set stdout = fso.GetStandardStream (1)
Set stderr = fso.GetStandardStream (2)
stdout.WriteLine "This will go to standard output."
stderr.WriteLine "This will go to error output."
RLH
источник
5
Если скрипт запускается двойным щелчком и, таким образом, открывается с помощью wscript, скрипт выдает сообщение об ошибке: «Invalid Handle».
Бернхард Хиллер
6
@Bernhard: вы получаете эту ошибку, если запускаете скрипт с помощью wscript.exe. Wscript ориентирован на Windows и не имеет консольных потоков. Вместо этого используйте cscript.exe
Аксель Кемпер
20
@BernhardHiller имеет правильную точку. Суть этого ответа в том, что прямое использование stdout позволит избежать различий между CScript и WScript. Это неверно. Это решение по-прежнему работает только в CScript.exe, так что, похоже, не слишком много пользы от простого использования WScript.Echo. На самом деле, разница увеличивается, потому что скрипт больше не будет работать под WScript. Это правильный метод, который имеет свои применения, например, если нужно написать в StdErr, но в контексте этого ответа он вводит в заблуждение.
Тим Лонг
3
Я просто хочу осветить преимущество этого метода перед WScript.Echo: cscript //b foobar.vbs Запускается foobar.vbsбез вывода на консоль, но с помощью метода Роба вы можете получить вывод даже при переходе \\bкcscript.exe
С. Рази
24

Вам нужно только форсировать cscript вместо wscript. Я всегда использую этот шаблон. Функция ForceConsole () выполнит ваши vbs в cscript, также у вас есть хороший псевдоним для печати и сканирования текста.

 Set oWSH = CreateObject("WScript.Shell")
 vbsInterpreter = "cscript.exe"

 Call ForceConsole()

 Function printf(txt)
    WScript.StdOut.WriteLine txt
 End Function

 Function printl(txt)
    WScript.StdOut.Write txt
 End Function

 Function scanf()
    scanf = LCase(WScript.StdIn.ReadLine)
 End Function

 Function wait(n)
    WScript.Sleep Int(n * 1000)
 End Function

 Function ForceConsole()
    If InStr(LCase(WScript.FullName), vbsInterpreter) = 0 Then
        oWSH.Run vbsInterpreter & " //NoLogo " & Chr(34) & WScript.ScriptFullName & Chr(34)
        WScript.Quit
    End If
 End Function

 Function cls()
    For i = 1 To 50
        printf ""
    Next
 End Function

 printf " _____ _ _           _____         _    _____         _     _   "
 printf "|  _  |_| |_ ___ ___|     |_ _ _ _| |  |   __|___ ___|_|___| |_ "
 printf "|     | | '_| . |   |   --| | | | . |  |__   |  _|  _| | . |  _|"
 printf "|__|__|_|_,_|___|_|_|_____|_____|___|  |_____|___|_| |_|  _|_|  "
 printf "                                                       |_|     v1.0"
 printl " Enter your name:"
 MyVar = scanf
 cls
 printf "Your name is: " & MyVar
 wait(5)
MadAntrax
источник
Вы уверены, что отвечаете на актуальный вопрос ?
Дакаб
Да, только вызовите ForceConsole () и затем используйте printf () для печати текста в консоли вывода. Также у вас есть другие псевдонимы для очистки экрана, сканирования текста и ожидания (сна)
MadAntrax
1
Лучшее решение, спасибо, но важна только функция «ForceConsole», «printf» и все остальное совершенно не нужно, так как если вы заставите закрыть текущий скрипт на экземпляре Wscript.exe, а затем запустите новый экземпляр cscript.exe текущий скрипт, затем Wscript.Echo выведет на этот экземпляр консоли ...
ElektroStudios
6

Я наткнулся на этот пост и вернулся к подходу, который я использовал некоторое время назад, который похож на @ MadAntrax's.

Основное отличие состоит в том, что он использует пользовательский класс VBScript, чтобы обернуть всю логику для переключения на CScript и вывода текста на консоль, что делает основной сценарий немного чище.

Это предполагает, что вашей целью является потоковая передача данных на консоль, а не вывод сообщений в окна сообщений.

Класс cCONSOLE находится ниже. Чтобы использовать его, включите полный класс в конец вашего скрипта, а затем создайте его экземпляр прямо в начале скрипта. Вот пример:

    Option Explicit

'// Instantiate the console object, this automatically switches to CSCript if required
Dim CONS: Set CONS = New cCONSOLE

'// Now we can use the Consol object to write to and read from the console
With CONS

    '// Simply write a line
     .print "CSCRIPT Console demo script"

     '// Arguments are passed through correctly, if present
     .Print "Arg count=" & wscript.arguments.count

     '// List all the arguments on the console log
     dim ix
     for ix = 0 to wscript.arguments.count -1
        .print "Arg(" & ix & ")=" & wscript.arguments(ix)
     next

     '// Prompt for some text from the user
     dim sMsg : sMsg = .prompt( "Enter any text:" )

     '// Write out the text in a box
     .Box sMsg

     '// Pause with the message "Hit enter to continue"
     .Pause

End With     




'= =========== End of script - the cCONSOLE class code follows here

Вот код для класса cCONSOLE

     CLASS cCONSOLE
 '= =================================================================
 '= 
 '=    This class provides automatic switch to CScript and has methods
 '=    to write to and read from the CSCript console. It transparently
 '=    switches to CScript if the script has been started in WScript.
 '=
 '= =================================================================

    Private oOUT
    Private oIN


    Private Sub Class_Initialize()
    '= Run on creation of the cCONSOLE object, checks for cScript operation


        '= Check to make sure we are running under CScript, if not restart
        '= then run using CScript and terminate this instance.
        dim oShell
        set oShell = CreateObject("WScript.Shell")

        If InStr( LCase( WScript.FullName ), "cscript.exe" ) = 0 Then
            '= Not running under CSCRIPT

            '= Get the arguments on the command line and build an argument list
            dim ArgList, IX
            ArgList = ""

            For IX = 0 to wscript.arguments.count - 1
                '= Add the argument to the list, enclosing it in quotes
                argList = argList & " """ & wscript.arguments.item(IX) & """"
            next

            '= Now restart with CScript and terminate this instance
            oShell.Run "cscript.exe //NoLogo """ & WScript.ScriptName & """ " & arglist
            WScript.Quit

        End If

        '= Running under CScript so OK to continue
        set oShell = Nothing

        '= Save references to stdout and stdin for use with Print, Read and Prompt
        set oOUT = WScript.StdOut
        set oIN = WScript.StdIn

        '= Print out the startup box 
            StartBox
            BoxLine Wscript.ScriptName
            BoxLine "Started at " & Now()
            EndBox


    End Sub

    '= Utility methods for writing a box to the console with text in it

            Public Sub StartBox()

                Print "  " & String(73, "_") 
                Print " |" & Space(73) & "|"
            End Sub

            Public Sub BoxLine(sText)

                Print Left(" |" & Centre( sText, 74) , 75) & "|"
            End Sub

            Public Sub EndBox()
                Print " |" & String(73, "_") & "|"
                Print ""
            End Sub

            Public Sub Box(sMsg)
                StartBox
                BoxLine sMsg
                EndBox
            End Sub

    '= END OF Box utility methods


            '= Utility to center given text padded out to a certain width of text
            '= assuming font is monospaced
            Public Function Centre(sText, nWidth)
                dim iLen
                iLen = len(sText)

                '= Check for overflow
                if ilen > nwidth then Centre = sText : exit Function

                '= Calculate padding either side
                iLen = ( nWidth - iLen ) / 2

                '= Generate text with padding
                Centre = left( space(iLen) & sText & space(ilen), nWidth )
            End Function



    '= Method to write a line of text to the console
    Public Sub Print( sText )

        oOUT.WriteLine sText
    End Sub

    '= Method to prompt user input from the console with a message
    Public Function Prompt( sText )
        oOUT.Write sText
        Prompt = Read()
    End Function

    '= Method to read input from the console with no prompting
    Public Function Read()
        Read = oIN.ReadLine
    End Function

    '= Method to provide wait for n seconds
    Public Sub Wait(nSeconds)
        WScript.Sleep  nSeconds * 1000 
    End Sub

    '= Method to pause for user to continue
    Public Sub Pause
        Prompt "Hit enter to continue..."
    End Sub


 END CLASS
JohnRC
источник
3

Существует пять способов вывода текста на консоль:

Dim StdOut : Set StdOut = CreateObject("Scripting.FileSystemObject").GetStandardStream(1)

WScript.Echo "Hello"
WScript.StdOut.Write "Hello"
WScript.StdOut.WriteLine "Hello"
Stdout.WriteLine "Hello"
Stdout.Write "Hello"

WScript.Echo выведет на консоль, но только если скрипт запущен с использованием cscript.exe. Он будет выводиться в окна сообщений, если начал использовать wscript.exe.

WScript.StdOut.Write и WScript.StdOut.WriteLine всегда будут выводиться на консоль.

StdOut.Write и StdOut.WriteLine также всегда будут выводиться на консоль. Это требует дополнительного создания объекта, но это примерно на 10% быстрее, чем WScript.Echo.

Регис Десросье
источник
1
... и, как сказано в комментарии к предыдущим ответам, это не работает при выполнении с wscript.exe: stackoverflow.com/questions/4388879/…
maxxyme
Также найдено объяснение GetStandardStream () по сравнению с WScript.StdIn / .StdOut / .StdErr: «VBScript в двух словах: краткий справочник по рабочему столу (2-е издание)» books.google.fr/books?id=NLpuZSatG3QC Страница 298 говорит, что это « функциональный эквивалент ".
maxxyme