VBSはcmdコマンドの出力を読み出し、VBSはプログラムを実行してVBSにリダイレクトする

Set objShell = CreateObject("WScript.Shell")
Set objExecObject = objShell.Exec ("%comspec% /c " & wscript.arguments(0))
Do While Not objExecObject.StdOut.AtEndOfStream
	strText = objExecObject.StdOut.ReadAll()
loop
msgbox strText