まんま Dim WshShell, oExec, input Set WshShell = CreateObject("WScript.Shell") Set oExec = WshShell.Exec("2011121700.bat") input = "" Do While True If Not oExec.StdOut.AtEndOfStream Then c = oExec.StdOut.Read(1) input = input & c If InStr(…