vbscript-Ausgabe an die Konsole

165

Was ist der Befehl oder der schnellste Weg, um Ergebnisse mit vbscript an die Konsole auszugeben?

Regmi
quelle

Antworten:

311

Was meinen Sie:

Wscript.Echo "Like this?"

Wenn Sie dies unter ausführen wscript.exe(dem Standardhandler für die Erweiterung .vbs, was Sie erhalten, wenn Sie auf das Skript doppelklicken), wird ein Dialogfeld "MessageBox" mit Ihrem Text darin angezeigt. Wenn Sie das unter ausführen, erhalten cscript.exeSie eine Ausgabe in Ihrem Konsolenfenster.

Evan Anderson
quelle
1
Sie können die Funktion direkt auf der Datei wscript.exe verwenden MsgBox("text")oder sind MsgBox(object.property)aber Wscript.Echoeinfacher zu schreiben. Vielen Dank.
m3nda
22
Unintuitiv für mich, WScript.Echo muss verwendet werden, ob Sie über WScriptoder laufen CScript. Das heißt, es ist nicht ein CScript.Echo, falls Zukunft Googler Wunder. ( Sehr glücklich, dass die msgboxes weg sind [wenn mit cscript] ausgeführt; danke;)
Ruffin
1
@ GabrielStaples - Nicht mit der Aktie WScript.Echo. Ich nehme an, wenn Sie vollständig in WScript bleiben möchten, können Sie etwas schrecklich Zwielichtiges tun, z. B. einen anderen Prozess ausführen, um dem übergeordneten Prozess "SendKeys" zu senden und die MessageBox zu schließen.
Evan Anderson
4
Eigentlich habe ich gerade diese popupMethode gefunden. Sehr ähnlich, echoaber Sie können ein Zeitlimit angeben, nach dem das Popup-Feld automatisch geschlossen wird. Sehr bequem und einfach zu bedienen: technet.microsoft.com/en-us/library/ee156593.aspx
Gabriel Staples
63

Dies wurde in Dragon-IT-Skripten und im Code-Repository gefunden .

Sie können dies mit den folgenden Schritten tun und sich von den Unterschieden zwischen cscript und wscript fernhalten und die gleiche Konsolenausgabe erhalten, die eine Batchdatei haben würde. Dies kann hilfreich sein, wenn Sie VBS aus einer Batch-Datei aufrufen und es nahtlos aussehen lassen müssen.

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
quelle
5
Wenn das Skript durch Doppelklick gestartet und somit mit wscript geöffnet wird, führt das Skript zu einer Fehlermeldung: "Ungültiges Handle".
Bernhard Hiller
6
@Bernhard: Sie erhalten diesen Fehler, wenn Sie das Skript mit wscript.exe ausführen. Wscript ist Windows-orientiert und hat keine Konsolen-Streams. Verwenden Sie stattdessen cscript.exe: technet.microsoft.com/en-us/library/bb490816.aspx
Axel Kemper
20
@BernhardHiller hat einen gültigen Punkt. Der Kern dieser Antwort ist, dass die direkte Verwendung von stdout die Unterschiede zwischen CScript und WScript vermeiden würde. Das ist falsch. Diese Lösung funktioniert immer noch nur unter CScript.exe, daher scheint es keinen großen Vorteil zu geben, nur zu verwenden WScript.Echo. Tatsächlich wird der Unterschied vergrößert, da das Skript unter WScript überhaupt nicht mehr ausgeführt wird. Es ist eine gültige Technik, die ihren Nutzen hat, zum Beispiel wenn man in StdErr schreiben muss, aber im Kontext dieser Antwort ist sie irreführend.
Tim Long
3
Ich möchte nur den Vorteil dieser Methode beleuchten WScript.Echo: cscript //b foobar.vbs Läuft foobar.vbsohne Konsolenausgabe, aber mit Robs Methode können Sie die Ausgabe auch dann erhalten, wenn Sie \\bancscript.exe
S. Razi
24

Sie müssen nur cscript anstelle von wscript erzwingen. Ich benutze immer diese Vorlage. Die Funktion ForceConsole () führt Ihre vbs in cscript aus, außerdem haben Sie einen schönen Alias ​​zum Drucken und Scannen von Text.

 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
quelle
Sind Sie sicher, dass dies die eigentliche Frage beantwortet ?
Dakab
Ja, rufen Sie nur ForceConsole () auf und drucken Sie dann mit printf () Text in der Ausgabekonsole. Sie haben auch andere Alias ​​zum Löschen des Bildschirms, Scannen von Text und Warten (Schlaf)
MadAntrax
1
Die beste Lösung aller Zeiten, danke, aber nur die Funktion "ForceConsole" ist von Bedeutung. "Printf" und der Rest sind völlig unnötig, da Sie das aktuelle Skript auf der Instanz Wscript.exe schließen und dann eine neue Instanz cscript.exe von ausführen müssen das aktuelle Skript, dann wird Wscript.Echo an diese Konsoleninstanz ausgegeben ...
ElektroStudios
6

Ich bin auf diesen Beitrag gestoßen und bin zu einem Ansatz zurückgekehrt, den ich vor einiger Zeit verwendet habe und der @ MadAntrax ähnelt.

Der Hauptunterschied besteht darin, dass eine benutzerdefinierte VBScript-Klasse verwendet wird, um die gesamte Logik für den Wechsel zu CScript und die Ausgabe von Text an die Konsole zu verpacken, sodass das Hauptskript etwas sauberer wird.

Dies setzt voraus, dass Ihr Ziel darin besteht, die Ausgabe an die Konsole zu streamen, anstatt sie in Nachrichtenfelder zu übertragen.

Die cCONSOLE-Klasse ist unten. Um es zu verwenden, fügen Sie die vollständige Klasse am Ende Ihres Skripts ein und instanziieren Sie sie direkt am Anfang des Skripts. Hier ist ein Beispiel:

    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

Hier ist der Code für die cCONSOLE-Klasse

     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
quelle
3

Es gibt fünf Möglichkeiten, Text an die Konsole auszugeben:

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 wird nur dann an die Konsole ausgegeben, wenn das Skript mit cscript.exe gestartet wird. Es wird in Nachrichtenfeldern ausgegeben, wenn es mit wscript.exe gestartet wird.

WScript.StdOut.Write und WScript.StdOut.WriteLine werden immer an die Konsole ausgegeben.

StdOut.Write und StdOut.WriteLine werden auch immer an die Konsole ausgegeben. Es erfordert eine zusätzliche Objekterstellung, ist jedoch etwa 10% schneller als WScript.Echo.

Regis Desrosiers
quelle
1
... und wie in einem Kommentar zu früheren Antworten gesagt, funktioniert dies nicht, wenn es mit wscript.exe ausgeführt wird: stackoverflow.com/questions/4388879/…
maxxyme
Außerdem wurde eine Erklärung zu GetStandardStream () und WScript.StdIn / .StdOut / .StdErr gefunden: "VBScript auf den Punkt gebracht: Eine Desktop-Kurzreferenz (2. Ausgabe)" books.google.fr/books?id=NLpuZSatG3QC Seite 298 sagt, es sei " Funktionsäquivalent ".
Maxxyme