Environment对象的使用

1
Dim os ,osversion ,testname
os=Environment.Value("OS")
osversion=Environment.Value("OSVersion")
testname=Environment.Value("TestName")


Reporter.ReportEvent micDone ,"Envirnoment","运行测试脚本" & testname &"操作系统为"&oa&"版本为"&osversion

2

Dialog("Login").WinEdit("Agent Name:").Set Environment("AgentName")    ' 输入代理机构名
Dialog("Login").WinEdit("Agent Name:").Type  micTab
Dialog("Login").WinEdit("Password:").SetSecure Environment("PassWord")    ' 输入密码
Dialog("Login").WinButton("OK").Click    ' 确认登录

file -settings- environment 导出xml文件
xml文件格式如下
<Environment>
    <Variable>
        <Name>AgentName</Name>
        <Value>MERCURY</Value>
    </Variable>
    <Variable>
        <Name>PassWord</Name>
        <Value>MERCURY</Value>
    </Variable>
</Environment>

导出的文件可以在测试脚本运行过程中被导入，然后读取其中的变量值，
Dim myusername,mypassword, myvariant
Environment.LoadFromFile("C:\Program Files\Mercury Interactive\QuickTest Professional\Tests\test.xml")
myusername=Environment.Value("AgentName")
mypassword=Environment.Value("PassWord")
myvariant=Environment.Value("MyVariable")

msgbox myvariant&myusername