set w=createobject("wscript.shell")
set a=w.exec("cmd")
a.stdin.writeline "powershell -windowstyle hidden exit" ' 因为窗口被隐藏 可以知道这的确被执行了
'a.stdin.writeline "ftype" 
'一定得cmd窗口被关闭 才会执行下面的语句
msgbox a.stdout.readall'cmd被关闭后 ftype的输出可以被正常获取
复制代码

'示例：vbs读取批处理或cmd命令返回的字符串，隐藏黑框
Set oWshShell = CreateObject("WScript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
s = oWshShell.ExpandEnvironmentStrings("%windir%\System32\CScript.exe")
If oFSO.FileExists(s) And LCase(WScript.FullName) <> LCase(s) Then
    s = s & " """ & WScript.ScriptFullName & """ "
    For Each i In WScript.Arguments
        If InStr(i, " ") > 0 Then i = """" & i & """"
        s = s & i & " "
    Next
    oWshShell.Run Left(s, Len(s) - 1), 0
    WScript.Quit()
End If

Set oWshScriptExec = oWshShell.Exec("cmd.exe")
With oWshScriptExec.StdIn
    .WriteLine "@echo off & query user"
    .Close()
End With
With oWshScriptExec.StdOut
    s = .ReadAll()
    .Close()
End With
MsgBox s

Set oWshScriptExec = oWshShell.Exec("cmd.exe")
With oWshScriptExec.StdIn
    .WriteLine "@echo off & D:\test.bat"
    .Close()
End With
With oWshScriptExec.StdOut
    s = .ReadAll()
    .Close()
End With
MsgBox s
复制代码

set w=createobject("wscript.shell")
set a=w.exec("cmd")
a.stdin.writeline "powershell -windowstyle hidden exit" ' 因为窗口被隐藏 可以知道这的确被执行了
a.stdin.writeline "ftype" 
a.stdin.writeline "exit" 
msgbox a.stdout.readall'cmd被关闭后 ftype的输出可以被正常获取
复制代码

set w=createobject("wscript.shell")
set a=w.exec("cmd")
a.stdin.writeline "ftype" 
'cmd窗口不关闭也会执行下面的语句
msgbox a.stdout.readline
复制代码