批处理:Ping结果前加上时间并把结果保存为txt文件

START echo -------------------------------------------------------- ------------------------>>aa.txt ping 192.168.0.2 >temp.txt for /f "tokens=* delims=" %%i in (temp.txt) do ( echo %date% %time:~0,5% %%i>>aa.txt ) goto START 上面这个批处理可能是我不太会使，不好用。我又找了个角本的，经测试不错。 Set shell = WScript.CreateObject("WScript.Shell") Set re=New RegExp re.Pattern = "^Reply|^Request" Set myping=shell.Exec("ping 192.168.9.24 -t") while Not myping.StdOut.AtEndOfStream strLine = myping.StdOut.ReadLine() r=re.Test(strLine) If r Then WScript.Echo date & " "& time & chr(9) & strLine End if Wend 以上代码保存成tping.vbs 在command下执行cscript tping.vbs 我在命令行输入cscript tping.vbs >>d:/tping.txt 将输出结果保存成名为tping.txt的文件。内容大致如下： Microsoft (R) Windows Script Host Version 5.6 版权所有(C) Microsoft Corporation 1996-2001。保留所有权利。 2009-9-25 13:04:56 Reply from 192.168.9.24: bytes=32 time<1ms TTL=124 2009-9-25 13:04:57 Reply from 192.168.9.24: bytes=32 time<1ms TTL=124 2009-9-25 13:04:58 Reply from 192.168.9.24: bytes=32 time<1ms TTL=124 2009-9-25 13:04:59 Reply from 192.168.9.24: bytes=32 time<1ms TTL=124 2009-9-25 13:05:00 Reply from 192.168.9.24: bytes=32 time<1ms TTL=124 2009-9-25 13:05:01 Reply from 192.168.9.24: bytes=32 time<1ms TTL=124 2009-9-25 13:05:02 Reply from 192.168.9.24: bytes=32 time<1ms TTL=124 2009-9-25 13:05:03 Reply from 192.168.9.24: bytes=32 time<1ms TTL=124 2009-9-25 13:05:04 Reply from 192.168.9.24: bytes=32 time<1ms TTL=124