中国DOS联盟

dir |cscript //nologo savelog.vbs log.txt

Set fso = CreateObject("scripting.filesystemobject")
Set stream = fso.opentextfile(wscript.arguments(0),2,true)
While Not wscript.stdin.atendofstream
        line = wscript.stdin.readline
        wscript.stdout.writeline(line)
        Call stream.writeline(line)
Wend
Call stream.close

@echo off
dir>log.txt
type log.txt
pause

' 调用'hhc.exe'生成chm并保存输出到log文件
Sub GenChm()
        Dim stream
        Set stream = fso.opentextfile(logfile,2,true)

        Dim oexec
        Set oexec = shell.Exec(cmdline)

        Do While Not oExec.StdOut.AtEndOfStream
                Dim line
                line = oexec.stdout.readline()

                Call wscript.stdout.writeline(line)
                Call stream.writeline(line)
        Loop

        Call stream.close
End Sub