Sevname="服务名称"&date
……新建项目……
Newname=Browser("http://www.www.com").Page("http://www.www.com_2").Frame("main").WebTable("服务名称").GetCellData(2,1)
msgbox Sevname
msgbox Newname
If Newname=Sevname Then
reporter.ReportEvent 0,"添加成功","添加成功"
else
reporter.ReportEvent 1,"添加失败","添加失败"
End If