51Testing软件测试论坛

标题: 一个VBS脚本运行错误 [打印本页]

作者: gaoyoumei 时间: 2009-5-10 14:05
标题: 一个VBS脚本运行错误
脚本如下：
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并运行测试，会有上面的错误。

作者: 52042722 时间: 2009-5-11 10:12
'Set qtOptions= CreateObject("QuickTest.RunResultsOptions") 这句话被你注释了

作者: gaoyoumei 时间: 2009-5-11 16:33
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="D:\temp"

'运行测试
'Set qtTest=qtApp.Test

qtApp.Test.Run ,True 'qtOptions
'获取内建的环境变量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 qtOptions=Nothing
'释放QTP应用程序对象
set qtApp=Nothing

将脚本改成这样运行后提示：”对象不支持此属性或者方法：RunResultsOptions,错误：800A01B6“

[ 本帖最后由 gaoyoumei 于 2009-5-11 17:45 编辑 ]

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)