blocks|key|1069125|text|你的意思是：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1069126|Wscript.Echo+"Like+this?"|code-block|syntax|javascript|1069127|如果在wscript.exe+(+.vbs扩展的默认处理程序，所以双击脚本会得到什么)下运行它，您将看到一个"MessageBox“对话框，其中包含您的文本。如果在cscript.exe下运行该命令，您将在控制台窗口中获得输出。|offset|length|style|CODE|1069128|entityMap^0|0|0|3|B|2A|B|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@$I|R|J|S|K|L]|$I|T|J|U|K|L]]|9|@]|A|$]]|$1|M|3|-4|5|6|7|V|8|@]|9|@]|A|$]]]|N|$]]

You mean:

<pre><code>Wscript.Echo "Like this?"
</code></pre>

If you run that under <code>wscript.exe</code> (the default handler for the .vbs extension, so what you'll get if you double-click the script) you'll get a "MessageBox" dialog with your text in it. If you run that under <code>cscript.exe</code> you'll get output in your console window.

blocks|key|854779|text|您只需要强制使用cscript而不是wscript。我总是使用这个模板。函数ForceConsole()将执行你的vbs成cscript，你也有很好的别名来打印和扫描文本。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|854780|+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+"%7C++_++%7C_%7C+%7C_+___+___%7C+++++%7C_+_+_+_%7C+%7C++%7C+++__%7C___+___%7C_%7C___%7C+%7C_+"
+printf+"%7C+++++%7C+%7C+'_%7C+.+%7C+++%7C+++--%7C+%7C+%7C+%7C+.+%7C++%7C__+++%7C++_%7C++_%7C+%7C+.+%7C++_%7C"
+printf+"%7C__%7C__%7C_%7C_,_%7C___%7C_%7C_%7C_____%7C_____%7C___%7C++%7C_____%7C___%7C_%7C+%7C_%7C++_%7C_%7C++"
+printf+"+++++++++++++++++++++++++++++++++++++++++++++++++++++++%7C_%7C+++++v1.0"
+printl+"+Enter+your+name:"
+MyVar+=+scanf
+cls
+printf+"Your+name+is:+"+&+MyVar
+wait(5)|code-block|syntax|javascript|854781|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

You only need to force cscript instead wscript. I always use this template. The function ForceConsole() will execute your vbs into cscript, also you have nice alias to print and scan text.

<pre><code> 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 &amp; " //NoLogo " &amp; Chr(34) &amp; WScript.ScriptFullName &amp; 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: " &amp; MyVar
 wait(5)
</code></pre>

blocks|key|1069261|text|我偶然发现了这篇文章，并回到了一段时间前我使用的方法，它类似于@MadAntrax的方法。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1069262|主要区别在于，它使用了一个VBScript用户定义的类来包装切换到CScript和将文本输出到控制台的所有逻辑，因此它使主脚本更加简洁。|1069263|这假设您的目标是将输出流式传输到控制台，而不是将输出发送到消息框。|1069264|下面是cCONSOLE类。要使用它，请在脚本的末尾包含完整的类，然后在脚本的开头将其实例化。下面是一个示例：|1069265|++++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|code-block|syntax|javascript|1069266|下面是cCONSOLE类的代码|1069267|+++++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+"+%7C"+&+Space(73)+&+"%7C"
++++++++++++End+Sub

++++++++++++Public+Sub+BoxLine(sText)

++++++++++++++++Print+Left("+%7C"+&+Centre(+sText,+74)+,+75)+&+"%7C"
++++++++++++End+Sub

++++++++++++Public+Sub+EndBox()
++++++++++++++++Print+"+%7C"+&+String(73,+"_")+&+"%7C"
++++++++++++++++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|1069268|entityMap^0|0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|T|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|U|8|@]|9|@]|A|$]]|$1|F|3|G|5|6|7|V|8|@]|9|@]|A|$]]|$1|H|3|I|5|J|7|W|8|@]|9|@]|A|$K|L]]|$1|M|3|N|5|6|7|X|8|@]|9|@]|A|$]]|$1|O|3|P|5|J|7|Y|8|@]|9|@]|A|$K|L]]|$1|Q|3|-4|5|6|7|Z|8|@]|9|@]|A|$]]]|R|$]]

I came across this post and went back to an approach that I used some time ago which is similar to @MadAntrax's. 

The main difference is that it uses a VBScript user-defined class to wrap all the logic for switching to CScript and outputting text to the console, so it makes the main script a bit cleaner.

This assumes that your objective is to stream output to the console, rather than having output go to message boxes. 

The cCONSOLE class is below. To use it, include the complete class at the end of your script, and then instantiate it right at the beginning of the script. Here is an example:

<pre><code> 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=" &amp; wscript.arguments.count

 '// List all the arguments on the console log
 dim ix
 for ix = 0 to wscript.arguments.count -1
 .print "Arg(" &amp; ix &amp; ")=" &amp; 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
</code></pre>

Here is the code for the cCONSOLE class

<pre><code> 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 &amp; " """ &amp; wscript.arguments.item(IX) &amp; """"
 next

 '= Now restart with CScript and terminate this instance
 oShell.Run "cscript.exe //NoLogo """ &amp; WScript.ScriptName &amp; """ " &amp; 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 " &amp; Now()
 EndBox


 End Sub

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

 Public Sub StartBox()

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

 Public Sub BoxLine(sText)

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

 Public Sub EndBox()
 Print " |" &amp; String(73, "_") &amp; "|"
 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 &gt; nwidth then Centre = sText : exit Function

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

 '= Generate text with padding
 Centre = left( space(iLen) &amp; sText &amp; 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
</code></pre>

blocks|key|854914|text|有五种方式可以将文本输出到控制台：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|854915|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"|code-block|syntax|javascript|854916|只有在使用cscript.exe启动脚本时，WScript.Echo才会输出到控制台。如果使用wscript.exe启动，它将输出到消息框中。|854917|WScript.StdOut.Write和WScript.StdOut.WriteLine将始终输出到控制台。|854918|StdOut.Write和StdOut.WriteLine也将始终输出到控制台。它需要额外的对象创建，但比WScript.Echo快大约10%25。|854919|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@]|9|@]|A|$]]|$1|I|3|J|5|6|7|R|8|@]|9|@]|A|$]]|$1|K|3|L|5|6|7|S|8|@]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

There are five ways to output text to the console: 

<pre><code>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"
</code></pre>

WScript.Echo will output to console but only if the script is started using cscript.exe. It will output to message boxes if started using wscript.exe.

WScript.StdOut.Write and WScript.StdOut.WriteLine will always output to console.

StdOut.Write and StdOut.WriteLine will also always output to console. It requires extra object creation but it is about 10% faster than WScript.Echo.

blocks|key|854965|text|使用以下代码创建一个.vbs，它将打开您的主.vbs：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|854966|Set+objShell+=+WScript.CreateObject("WScript.shell")+
objShell.Run+"cscript.exe+""C:\QuickTestb.vbs"""|code-block|syntax|javascript|854967|这是我的主要.vbs|854968|Option+Explicit
Dim+i
for+i+=+1+To+5
+++++Wscript.Echo+i
+++++Wscript.Sleep+5000
Next|854969|entityMap^0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|N|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|O|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|K|3|-4|5|6|7|Q|8|@]|9|@]|A|$]]]|L|$]]

Create a .vbs with the following code, which will open your main .vbs:
<pre><code>Set objShell = WScript.CreateObject(&quot;WScript.shell&quot;) 
objShell.Run &quot;cscript.exe &quot;&quot;C:\QuickTestb.vbs&quot;&quot;&quot;
</code></pre>
Here is my main .vbs
<pre><code>Option Explicit
Dim i
for i = 1 To 5
 Wscript.Echo i
 Wscript.Sleep 5000
Next
</code></pre>

What is the command or the quickest way to output results to console using vbscript?

vbscript output to console

使用vbscript将结果输出到控制台的命令或最快方法是什么？

问vbscript输出到控制台
EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问vbscript输出到控制台EN

社区

活动

资源

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问vbscript输出到控制台
EN