QTP日志校验（研究）

If browser("    ").Dialog("Microsoft Internet Explorer").Exist(1) Then

 Call WriteLogMsg("fail"+","+Environment("TestName")+"--"+"查找用户失败"+"," +"wjj登陆")
 browser("    ").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
 else
       If browser("    ").Page("    ").Frame("Disp_3").WbfUltraGrid("UlUserGrid").ColumnCount then
             Call WriteLogMsg("Success"+","+Environment("TestName")+"--"+"查找用户成功"+"," +"wjj登陆")
  else
         Call WriteLogMsg("Fail"+","+Environment("TestName")+"--"+"查找用户失败"+"," +"wjj登陆")
  end  if
End If