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

来源：互联网发布：php特殊字符转义编辑：程序博客网时间：2024/04/27 15:48

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的文件。内容大致如下：

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