keluaran vbscript ke konsol


Jawaban:


311

Maksudmu:

Wscript.Echo "Like this?"

Jika Anda menjalankannya di bawah wscript.exe(penangan default untuk ekstensi .vbs, jadi apa yang akan Anda dapatkan jika Anda mengklik dua kali skrip) Anda akan mendapatkan dialog "MessageBox" dengan teks Anda di dalamnya. Jika Anda menjalankannya di bawah, cscript.exeAnda akan mendapatkan output di jendela konsol Anda.


1
Anda dapat langsung menggunakan fungsi pada wscript.exe MsgBox("text")atau MsgBox(object.property)tetapi Wscript.Echolebih mudah untuk menulis. Terima kasih.
m3nda

22
Secara tidak sengaja bagi saya, WScript.Echo harus digunakan untuk apakah Anda menjalankan melalui WScriptatau CScript. Artinya, tidak ada CScript.Echo, kalau-kalau googler masa depan bertanya-tanya. ( Sangat senang kotak pesan hilang [ketika dijalankan dengan cscript], namun; terima kasih.)
ruffin

1
@GabrielStaples - Tidak dengan stok WScript.Echo. Saya kira, jika Anda ingin tetap benar-benar dalam WScript Anda bisa melakukan sesuatu yang mengerikan seperti Exec'ing dari proses lain untuk melakukan "SendKeys" ke proses induk untuk menutup MessageBox.
Evan Anderson

4
Sebenarnya, saya baru menemukan popupmetode ini . Sangat mirip dengan echotetapi memungkinkan Anda untuk menentukan batas waktu setelah itu akan secara otomatis menutup kotak popup. Sangat nyaman dan mudah digunakan: technet.microsoft.com/en-us/library/ee156593.aspx
Gabriel Staples

63

Ini ditemukan di Dragon-IT Scripts dan Code Repository .

Anda dapat melakukan ini dengan yang berikut dan menjauh dari perbedaan cscript / wscript dan memungkinkan Anda untuk mendapatkan output konsol yang sama dengan file batch. Ini dapat membantu jika Anda memanggil VBS dari file batch dan harus membuatnya terlihat mulus.

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."

5
Jika skrip dimulai dengan klik dua kali dan kemudian dibuka dengan skrip, skrip menghasilkan pesan kesalahan: "Pegangan Tidak Valid".
Bernhard Hiller

6
@Bernhard: Anda mendapatkan kesalahan ini jika Anda menjalankan skrip menggunakan wscript.exe. Wscript berorientasi pada windows dan tidak memiliki stream konsol. Gunakan cscript.exe sebagai gantinya: technet.microsoft.com/en-us/library/bb490816.aspx
Axel Kemper

20
@BernhardHiller memiliki poin yang valid. Tujuan dari jawaban ini adalah bahwa menggunakan stdout secara langsung akan menghindari perbedaan CScript / WScript. Itu tidak benar. Solusi ini masih hanya berfungsi di bawah CScript.exe, jadi sepertinya tidak banyak manfaat dari hanya menggunakan WScript.Echo. Bahkan, perbedaannya diperbesar, karena skrip tidak akan lagi berjalan di bawah WScript. Ini adalah teknik yang valid yang memiliki kegunaannya, misalnya jika seseorang perlu menulis ke StdErr, tetapi dalam konteks jawaban ini, itu menyesatkan.
Tim Long

3
Saya hanya ingin menerangi manfaat dari metode ini WScript.Echo: cscript //b foobar.vbs Berjalan foobar.vbstanpa keluaran konsol, tetapi dengan metode Rob, Anda dapat memiliki keluaran bahkan ketika meneruskan \\bkecscript.exe
S. Razi

24

Anda hanya perlu memaksa cscript sebagai gantinya wscript. Saya selalu menggunakan templat ini. Fungsi ForceConsole () akan mengeksekusi vbs Anda ke dalam cscript, juga Anda memiliki alias bagus untuk mencetak dan memindai teks.

 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)

Apakah Anda yakin itu menjawab pertanyaan yang sebenarnya ?
dakab

Ya, hanya panggil ForceConsole () dan kemudian gunakan printf () untuk mencetak teks di konsol keluaran. Anda juga memiliki alias lain untuk menghapus layar, memindai teks dan menunggu (tidur)
MadAntrax

1
Solusi terbaik, terima kasih, tetapi hanya fungsi "ForceConsole" yang penting, "printf" dan yang lainnya sama sekali tidak diperlukan karena jika Anda memaksa untuk menutup skrip saat ini pada instance Wscript.exe dan kemudian jalankan contoh cscript.exe baru dari skrip saat ini, kemudian Wscript.Echo akan menampilkan contoh konsol itu ...
ElektroStudios

6

Saya menemukan posting ini dan kembali ke pendekatan yang saya gunakan beberapa waktu lalu yang mirip dengan @ MadAntrax.

Perbedaan utama adalah bahwa ia menggunakan kelas yang ditentukan pengguna VBScript untuk membungkus semua logika untuk beralih ke CScript dan mengeluarkan teks ke konsol, sehingga membuat skrip utama sedikit lebih bersih.

Ini mengasumsikan bahwa tujuan Anda adalah untuk mengalirkan output ke konsol, daripada meminta output masuk ke kotak pesan.

Kelas cCONSOLE ada di bawah. Untuk menggunakannya, sertakan kelas lengkap di akhir skrip Anda, dan kemudian instantiate tepat di awal skrip. Berikut ini sebuah contoh:

    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

Ini adalah kode untuk kelas 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

3

Ada lima cara untuk menampilkan teks ke konsol:

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 akan menampilkan konsol tetapi hanya jika skrip mulai menggunakan cscript.exe. Ini akan ditampilkan ke kotak pesan jika mulai menggunakan wscript.exe.

WScript.StdOut.Write dan WScript.StdOut.WriteLine akan selalu ditampilkan ke konsol.

StdOut.Write dan StdOut.WriteLine juga akan selalu ditampilkan ke konsol. Dibutuhkan pembuatan objek tambahan tetapi sekitar 10% lebih cepat dari WScript.Echo.


1
... dan seperti yang dikatakan dalam komentar pada jawaban sebelumnya, ini tidak berfungsi ketika mengeksekusi dengan wscript.exe: stackoverflow.com/questions/4388879/…
maxxyme

Juga menemukan penjelasan tentang GetStandardStream () vs WScript.StdIn / .StdOut / .StdErr: "VBScript in a Singkatnya: A Desktop Quick Reference (2nd Edition)" books.google.fr/books?id=NLpuZSatG3QC halaman 298 mengatakan itu " setara dengan functionnaly ".
Maksxyme
Dengan menggunakan situs kami, Anda mengakui telah membaca dan memahami Kebijakan Cookie dan Kebijakan Privasi kami.
Licensed under cc by-sa 3.0 with attribution required.