'******************************************************************
'脚本名称:系统信息&外部数据输入
'作用:通用获取运行信息
'前提:设置好系统信息的环境变量:file->setting->Environment
'影响功能点:无
'作者:vikesgao
'编写日期:2011-12-08
'修改日期: 修改原因:
'******************************************************************
'''获取系统信息
OS=Environment.Value("OS")
OSVersion=Environment.Value("OSVersion")
TestName=Environment.Value("TestName")
IEversion=Environment.Value("IEversion")
Reporter.ReportEvent micDone , "Environment" ,"运行测试脚本:" &TestName & "的操作系统为:" & OS & "版本为:" & OSVersion & "浏览器为:" & IEversion
''获取系统日志信息---start perf_log 放在脚本最上层 stop perf_lof放到脚本最下层
'systemutil.Run "logman","start perf_log"
'systemutil.Run "logman","stop perf_log"
'获得数据文件路径,并将数据文件导入到DataTable运行表中
'DataTable.AddSheet("TestData") QTP中建立一个Test Data的数据表
'DataTable.ImportSheet DataStr,"Sheet1","TestData" sheet1 的数据转换到QTP 数据表Test Data
DataStr= "d:\data.xls"
DataTable.AddSheet("TestData")
DataTable.ImportSheet DataStr,"Sheet1","TestData"
wait 1
'输入用户名和密码------------------
'UserName=DataTable.Value("UserName","TestData")
'注意:Value("UserName","TestData")里面的username大小,大小错误会出现报错
'UserName=DataTable.Value("UserName","TestData") 修改username从而添加更多的参数化数据
'Reporter 判断是否正常打开IE对应的地址
For i=1 to DataTable.GetSheet("TestData").GetRowCount
systemutil.Run "IEXPLORE.exe","http://108.88.3.253:9030/"----------------------->测试地址
Reporter.ReportEvent micPass,"IE","浏览器"
DataTable.SetCurrentRow i '把i设置为当前执行行
UserName=DataTable.Value("UserName","TestData")
PassWord=DataTable.Value("PassWord","TestData")
Browser("管理系统").Page("管理系统").WebEdit("WebEdit").Set UserName
Browser("管理系统").Page("管理系统").WebEdit("WebEdit_2").SetSecure PassWord
Browser("管理系统").Page("管理系统").Link("登陆").Click
wait 1
Browser("管理系统").Close
Next
'Browser("title := 管理系统").Page("title:=管理系统").WebEdit("type:=text").Set "root"