Set objExec = WshShell.Exec( "zip.exe -h" )

Do While objExec.Status = 0
	WScript.Sleep 100
Loop

Do While not objExec.StdErr.AtEndOfStream
	Call MsgBox( objExec.StdErr.ReadAll,  , "エラー" )
Loop
Do While not objExec.StdOut.AtEndOfStream
	Call MsgBox( objExec.StdOut.ReadAll, , "正常終了" )
Loop