blocks|key|1011801|text|此概念验证脚本：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1011802|'+pocBTicks.vbs+-+poor+man's+version+of+backticks+(POC)

Option+Explicit

'+Globals

Const+SW_SHOWMINNOACTIVE+=++7
Const+ForReading+++++++++=++1

Dim+goFS++:+Set+goFS++=+CreateObject(+"Scripting.FileSystemObject"+)
Dim+goWSH+:+Set+goWSH+=+CreateObject(+"WScript.Shell"+)

'+Dispatch
WScript.Quit+demoBTicks()

'+demoBTicks+-
Function+demoBTicks()
++demoBTicks+=+1
++Dim+aCmds+:+aCmds+=+Array(+_
++++++"dir+pocBTicks.vbs"+_
++++,+"dur+pocBTicks.vbs"+_
++++,+"xcopy+/?"+_
++)
++Dim+sCmd
++For+Each+sCmd+In+aCmds
++++++WScript.Echo+"########",+sCmd
++++++Dim+aRet+:+aRet+=+BTicks(+sCmd+)
++++++Dim+nIdx
++++++For+nIdx+=+0+To+UBound(+aRet+)
++++++++++WScript.Echo+"--------",+nIdx
++++++++++WScript.Echo+aRet(+nIdx+)
++++++Next
++Next
++demoBTicks+=+0
End+Function+'+demoBTicks

'+BTicks+-+execute+sCmd+via+WSH.Run
'++aRet(+0+)+:+goWSH.Run()+result
'++aRet(+1+)+:+StdErr+/+error+message
'++aRet(+2+)+:+StdOut
'++aRet(+3+)+:+command+to+run
Function+BTicks(+sCmd+)
++Dim+aRet++++:+aRet+++++=+Array(+-1,+"",+"",+""+)
++Dim+sFSpec2+:+sFSpec2++=+goFS.GetAbsolutePathName(+"."+)
++Dim+sFSpec1+:+sFSpec1++=+goFS.BuildPath(+sFSpec2,+goFS.GetTempName()+)
++++++++++++++++sFSpec2++=+goFS.BuildPath(+sFSpec2,+goFS.GetTempName()+)

++aRet(+3+)+=+"""%25COMSPEC%25""+/c+"""+%2B+sCmd+%2B+"+1>"""+%2B+sFSpec1+%2B+"""+2>"""+%2B++sFSpec2+%2B+""""""
++Dim+aErr
+On+Error+Resume+Next
++aRet(+0+)+=+goWSH.Run(+aRet(+3+),+SW_SHOWMINNOACTIVE,+True+)
++aErr++++++=+Array(+Err.Number,+Err.Description,+Err.Source+)
+On+Error+GoTo+0
++If+0+<>+aErr(+0+)+Then
+++++aRet(+0+)+=+aErr(+0+)
+++++aRet(+1+)+=+Join(+Array(+aErr(+1+),+aErr(+2+),+"(BTicks)"+),+vbCrLf+)
+++++BTicks++++=+aRet
+++++Exit+Function
++End+If

++Dim+nIdx+:+nIdx+=+1
++Dim+sFSpec
++For+Each+sFSpec+In+Array(+sFSpec2,+sFSpec1+)
++++++If+goFS.FileExists(+sFSpec+)+Then
+++++++++Dim+oFile+:+Set+oFile+=+goFS.GetFile(+sFSpec+)
+++++++++If+0+<+oFile.Size+Then
++++++++++++aRet(+nIdx+)+=+oFile.OpenAsTextStream(+ForReading+).ReadAll()
++++++++++++goFS.DeleteFile+sFSpec
+++++++++End+If
++++++End+If
++++++nIdx+=+nIdx+%2B+1
++Next
++BTicks+=+aRet
End+Function|code-block|syntax|javascript|1011803|演示如何使用.Run和临时文件通过隐藏的控制台获取诸如反引号之类的内容。像样的文件处理、在sCmd中引用、清理返回的字符串以及处理编码都需要更多的工作。但是也许你可以使用这个策略来实现一些符合你需要的东西。|1011804|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

This proof of concept script:

<pre><code>' pocBTicks.vbs - poor man's version of backticks (POC)

Option Explicit

' Globals

Const SW_SHOWMINNOACTIVE = 7
Const ForReading = 1

Dim goFS : Set goFS = CreateObject( "Scripting.FileSystemObject" )
Dim goWSH : Set goWSH = CreateObject( "WScript.Shell" )

' Dispatch
WScript.Quit demoBTicks()

' demoBTicks -
Function demoBTicks()
 demoBTicks = 1
 Dim aCmds : aCmds = Array( _
 "dir pocBTicks.vbs" _
 , "dur pocBTicks.vbs" _
 , "xcopy /?" _
 )
 Dim sCmd
 For Each sCmd In aCmds
 WScript.Echo "########", sCmd
 Dim aRet : aRet = BTicks( sCmd )
 Dim nIdx
 For nIdx = 0 To UBound( aRet )
 WScript.Echo "--------", nIdx
 WScript.Echo aRet( nIdx )
 Next
 Next
 demoBTicks = 0
End Function ' demoBTicks

' BTicks - execute sCmd via WSH.Run
' aRet( 0 ) : goWSH.Run() result
' aRet( 1 ) : StdErr / error message
' aRet( 2 ) : StdOut
' aRet( 3 ) : command to run
Function BTicks( sCmd )
 Dim aRet : aRet = Array( -1, "", "", "" )
 Dim sFSpec2 : sFSpec2 = goFS.GetAbsolutePathName( "." )
 Dim sFSpec1 : sFSpec1 = goFS.BuildPath( sFSpec2, goFS.GetTempName() )
 sFSpec2 = goFS.BuildPath( sFSpec2, goFS.GetTempName() )

 aRet( 3 ) = """%COMSPEC%"" /c """ + sCmd + " 1&gt;""" + sFSpec1 + """ 2&gt;""" + sFSpec2 + """"""
 Dim aErr
 On Error Resume Next
 aRet( 0 ) = goWSH.Run( aRet( 3 ), SW_SHOWMINNOACTIVE, True )
 aErr = Array( Err.Number, Err.Description, Err.Source )
 On Error GoTo 0
 If 0 &lt;&gt; aErr( 0 ) Then
 aRet( 0 ) = aErr( 0 )
 aRet( 1 ) = Join( Array( aErr( 1 ), aErr( 2 ), "(BTicks)" ), vbCrLf )
 BTicks = aRet
 Exit Function
 End If

 Dim nIdx : nIdx = 1
 Dim sFSpec
 For Each sFSpec In Array( sFSpec2, sFSpec1 )
 If goFS.FileExists( sFSpec ) Then
 Dim oFile : Set oFile = goFS.GetFile( sFSpec )
 If 0 &lt; oFile.Size Then
 aRet( nIdx ) = oFile.OpenAsTextStream( ForReading ).ReadAll()
 goFS.DeleteFile sFSpec
 End If
 End If
 nIdx = nIdx + 1
 Next
 BTicks = aRet
End Function
</code></pre>

shows how to use .Run and temporary files to get something like backticks with a hidden console. Decent file handling, quoting in sCmd, cleaning of the returned strings, and dealing with encodings will require more work. But perhaps you can use the strategy to implement something that fits your needs.

blocks|key|797564|text|为了将输出重定向到控制台，使用cscript运行脚本，例如：c:\cscript+myscript.vbs。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|797565|cscript有一些命令行选项。(对我来说)最重要的是开关//NOLOGO。如果你使用它(cscript+//nologo+myscript.vbs)，它将省略微软的商品...|797566|entityMap^0|U|N|0|19|T|0^^$0|@$1|2|3|4|5|6|7|J|8|@$9|K|A|L|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|M|8|@$9|N|A|O|B|C]]|D|@]|E|$]]|$1|H|3|-4|5|6|7|P|8|@]|D|@]|E|$]]]|I|$]]

In order to redirect the output to the console, run the script using cscript, ex.: <code>c:\cscript myscript.vbs</code>.

cscript has a few command line options. The most important (to me) is the switch //NOLOGO. If yoy use it (<code>cscript //nologo myscript.vbs</code>) it will omit Microsoft merchandise...

blocks|key|797592|text|我通常这样用：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|797593|Wscript.echo+execStdOut("ping+google.com")

Function+execStdOut(cmd)
+++Dim+goWSH+:+Set+goWSH+=+CreateObject(+"WScript.Shell"+)+
+++Dim+aRet:+Set+aRet+=+goWSH.exec(cmd)
+++execStdOut+=+aRet.StdOut.ReadAll()
End+Function+|code-block|syntax|javascript|797594|对于更高级的命令，您可以使用wrap+to+comspec+(cmd)|797595|my+res+=+execStdOut("%25comspec%25"+&+"+/c+"+&+""""+&+"dir+/b+c:\windows\*.exe"+&+""""+&+"+&&+Echo.+&&+Echo+finished")+|797596|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|$]]

I usually use this:

<pre><code>Wscript.echo execStdOut("ping google.com")

Function execStdOut(cmd)
 Dim goWSH : Set goWSH = CreateObject( "WScript.Shell" ) 
 Dim aRet: Set aRet = goWSH.exec(cmd)
 execStdOut = aRet.StdOut.ReadAll()
End Function 
</code></pre>

For more advanced commands youc an wrap to comspec (cmd)

<pre><code>my res = execStdOut("%comspec%" &amp; " /c " &amp; """" &amp; "dir /b c:\windows\*.exe" &amp; """" &amp; " &amp;&amp; Echo. &amp;&amp; Echo finished") 
</code></pre>

blocks|key|1011927|text|在VBA中返回G：\中的所有子文件夹的步骤|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1011928|sub+M_snb()
++c00=+createobejct("wscript.Shell").exec("cmd+/c+Dir+G:\OF\*.+/s/b").stdout.readall
end+sub|code-block|syntax|javascript|1011929|将返回的字符串拆分为数组|1011930|sub+M_snb()
++sn=split(createobejct("wscript.Shell").exec("cmd+/c+Dir+G:\OF\*.+/s/b").stdout.readall,vbCrLf)

++for+j=0+to+ubound(sn)
+++++msgbox+sn(j)
++next
End+Sub|1011931|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|$]]

To return in VBA all subfolders in G:\OF

<pre><code>sub M_snb()
 c00= createobejct("wscript.Shell").exec("cmd /c Dir G:\OF\*. /s/b").stdout.readall
end sub
</code></pre>

to split the returned string into an array

<pre><code>sub M_snb()
 sn=split(createobejct("wscript.Shell").exec("cmd /c Dir G:\OF\*. /s/b").stdout.readall,vbCrLf)

 for j=0 to ubound(sn)
 msgbox sn(j)
 next
End Sub
</code></pre>

blocks|key|1011969|text|考虑使用带有startupInfo.ShowWindow+=+0的Win32_Process来启动带有SW_HIDE的进程，而不是WScript.Shell。我在VBS+Run+cmd.exe+output+to+a+variable;+not+text+file下发布了一个详细的示例。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1011970|entityMap|0|LINK|mutability|MUTABLE|url|https://stackoverflow.com/questions/22106823/vbs-run-cmd-exe-output-to-a-variable-not-text-file^0|6|Q|X|D|1F|7|1T|D|29|1F|0|0^^$0|@$1|2|3|4|5|6|7|N|8|@$9|O|A|P|B|C]|$9|Q|A|R|B|C]|$9|S|A|T|B|C]|$9|U|A|V|B|C]]|D|@$9|W|A|X|1|Y]]|E|$]]|$1|F|3|-4|5|6|7|Z|8|@]|D|@]|E|$]]]|G|$H|$5|I|J|K|E|$L|M]]]]

Instead of <code>WScript.Shell</code>, consider using using <code>Win32_Process</code> with <code>startupInfo.ShowWindow = 0</code> to launch the process with <code>SW_HIDE</code>. I posted a detailed example under <a href="https://stackoverflow.com/questions/22106823/vbs-run-cmd-exe-output-to-a-variable-not-text-file">VBS Run cmd.exe output to a variable; not text file</a>.

blocks|key|797696|text|这是你可以获得命令行StdOut+(结果)的方法，而不会在vbscript中看到弹出的黑色dos窗口：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|797697|Set+Sh+=+CreateObject("WScript.Shell")
tFile=Sh.ExpandEnvironmentStrings("%25Temp%25")&"\t.txt"
Sh.Run+"cmd.exe+/c+xcopy+/?+>+"""&tFile&"""+",0,False
Wscript.echo+CreateObject("Scripting.FileSystemObject").openTextFile(tFile).readAll()|code-block|syntax|javascript|797698|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|$]]

This is the way you can get the command line StdOut (result) without see this popup black dos windows in vbscript:

<pre><code>Set Sh = CreateObject("WScript.Shell")
tFile=Sh.ExpandEnvironmentStrings("%Temp%")&amp;"\t.txt"
Sh.Run "cmd.exe /c xcopy /? &gt; """&amp;tFile&amp;""" ",0,False
Wscript.echo CreateObject("Scripting.FileSystemObject").openTextFile(tFile).readAll()
</code></pre>

This is a VBScript code example that shows how to catch whatever a command line program sends to standard output.
It executes the command <code>xcopy /?</code> and shows the output in a message box. Before the message box appears, for a split second you see the console window popping up. 

<pre><code>Set objShell = WScript.CreateObject("WScript.Shell")
Set objExec = objShell.Exec("xcopy /?")
Do
 line = objExec.StdOut.ReadLine()
 s = s &amp; line &amp; vbcrlf
Loop While Not objExec.Stdout.atEndOfStream
WScript.Echo s
</code></pre>

Here is an other VBScript code example that shows how to execute a script without showing the console window.

<pre><code>objShell.Run "c:\temp\mybatch.bat C:\WINDOWS\system32\cmd.exe", 0
</code></pre>

or

<pre><code>objShell.Run "c:\temp\myscript.vbs C:\WINDOWS\system32\cscript.exe", 0
</code></pre>

As you can see it has the form <code>&lt;script&gt;&lt;space&gt;&lt;executor&gt;</code>.
The last example uses <code>objShell.Run</code> instead of <code>objShell.Exec</code>

What I don't know is how to execute a command line program (if necessary from a batch file), catch the standard output, without showing the console window. Any ideas?

VBscript code to capture stdout, without showing console window

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

这是一个VBScript代码示例，展示了如何捕获命令行程序发送到标准输出的内容。它执行命令xcopy /?并在消息框中显示输出。在消息框出现之前，您会在瞬间看到弹出的控制台窗口。Set objShell = WScript.CreateObject("WScript.Shell")Set objExec = objSh...

问捕获标准输出的VBscript代码，不显示控制台窗口
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问捕获标准输出的VBscript代码，不显示控制台窗口EN