人気ブログランキング | 話題のタグを見る

[VBScript] 複数のスクリプトの出力を、ひとつのコンソール(黒い画面)へまとめる

どーもボキです。

複数のスクリプトを組み合わせれば複雑な仕掛けも用意できるものの、スクリプトごとに出力が出てしまうのは煩わしいですよね。

私は、[VBScript] ドラッグ&ドロップ処理ツールのテンプレート改で単独の機能を作りこみ、それらを組み合わせて使うようにしています。そこで問題になるのが、スクリプトが実行されるたびに黒い画面(コンソール)が出ることです。

この記事の方法を使えば、この煩わしさを解消できますよ。


サンプルプログラムのダウンロードと使い方




今回開発したプログラムソース

parent.vbsでは、child.vbsを実行、その終了を待ち、child.vbs終了後にchild.vbsからの出力メッセージを取得している。

parent.vbs
Const cFileName = "child.vbs"

Set objWS = CreateObject("WScript.Shell")

' 標準入出力を使って値を取得する
Set objExec = objWS.Exec("cmd /c cscript //nologo " & cFileName)
Do While objExec.Status = 0
WScript.Sleep 100
Loop
s = objExec.StdOut.ReadAll ' 標準出力メッセージを取得する
MsgBox s, vbInformation, WScript.ScriptName

child.vbs
WScript.Echo Now() & vbTab & WScript.ScriptFullName



にほんブログ村 IT技術ブログへ
にほんブログ村

by yozda | 2023-01-05 10:12 | プログラミング | Comments(0)