|
脚本如下:
Dim qtApp
Dim qtOptions
Dim strOS
Dim strUserName
'创建QTP对象
Set qtApp = CreateObject("QuickTest.Application")
'启动QTP服务
qtApp.Launch
'让QTP可见
qtApp.Visible=True
'打开测试
qtApp.Open "D:\QuickTestProfessional\Tests\createsite", False
'设置环境 变量
'qtApp.Test.Environment.value("Root")="D:\QuickTestProfessional\wcmtest"
'qtApp.Test.Environment.value("PassWord")="MyPassword"
'qtApp.Test.Environment.value("Days")=14
'创建测试结果,设置对象
'Set qtOptions= CreateObject("QuickTest.RunResultsOptions")
'设置运行结果存储到临时目录
'qtOptions.RunResultsOptions="TempLocation"
'运行测试
qtApp.Test.Run ,True,qtOptions
'qtApp.Run qtOptions,True
'获取内建的环境变量OS
strOS=qtApp.Test.Environment.value("OS")
'获取内建的环境变量UserName
strUserName=qtApp.Test.Environment.value("UserName")
'把当前时间,操作系统和用户添加
qtApp.Test.Description=qtApp.Test.Description & vbNewLine &_
"测试运行在:" & Now & vbNewLine &_
"平台:" & strOS & vbNewLine &_
"用户:"& strUserName & vbNewLine &_
"- - - - - - - - - - - - - - - - - - - - - "& vbNewLine
'保存测试
qtApp.Test.Save
'退出QTP
qtApp.Quit
'释放Options对象
Set qtApp=Nothing
运行这个脚本的过程中,脚本打开QTP后,还没有开始运行提示如下:'Test.Run'类型不匹配,错误号:800A000D。
希望有高手来给我指点一二,不胜感谢
说明:QTP的测试脚本createsite单独运行没有任何问题。就是通过这个VBS脚本启动QTP并运行测试,会有上面的错误。
|
|