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

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