QTP-点对点网络延时数据实时格式化日志输出
上一篇 /
下一篇 2012-12-03 11:28:25
/ 个人分类: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
最后可以在文本文件中过滤出想要的信息,并及时看到当时出问题的时间点。
收藏
举报
TAG:
QTP
qtp
自动化测试