QTP-点对点网络延时数据实时格式化日志输出

没有找到很好的实时监控工具，还是试着用QTP脚本写了一段脚本。思路是读取ping 对端地址 -t的输出结果，并将其不断写入到文本文件中。

PS:有好工具的童鞋最好推荐一下---可以实时看到点对点之间的网络延时状况的。不多说了，上代码，下班~

'网络延时长拷记录带时间点格式日志输出脚本 By Archer

'生成执行结果
Set bjShell = CreateObject("WScript.Shell") 
Set bjExecObject = objShell.Exec(PackPra("172.16.72.6"))

'创建文本写入对象
Set fso=Createobject("scripting.filesystemobject")
'在D盘生成pingresult.txt结果文件
Set txtFile=fso.CreateTextFile("d:\pingresult.txt",true)

Do While Not objExecObject.StdOut.AtEndOfStream 
'获取时间
strTime=Cstr(now())
'输出结果拼接
strText = objExecObject.StdOut.ReadLine()+"------"+strTime
'输出结果正则判断
If IsMatch("Reply from",strText) Then
txtFile.WriteLine(strText ) '写入结果
End If
loop
'关闭并释放对象
txtFile.Close
Set txtFile=nothing
Set fso=nothing

'自定义对端地址函数
Function PackPra(myvalue)
PackPra="ping "+myvalue+" -t"
End Function

'正则判断输出结果
Function IsMatch(patrn,strng)
   Dim regEx '定义一个正则类变量
   Set regEx=new RegExp
   regEx.Pattern=patrn '设置表达式
   regEx.IgnoreCase=False '忽略大小写设置关闭
   IsMatch=regEx.Test(strng) '返回
   Set regEx=nothing '释放对象
End Function

最后可以在文本文件中过滤出想要的信息，并及时看到当时出问题的时间点。