51Testing软件测试论坛

标题: 求助远程自动运行QTP代码问题 [打印本页]

作者: 神游九天 时间: 2011-6-15 10:35
标题: 求助远程自动运行QTP代码问题
代码如下：

Public Sub RunTestSet(qcServer,qcDomain,qcProject,qcUser,qcPassword,tsFolderName,tSetName,runMode,runHostName,resultGetter)

   'Dim qcServer          定义QC服务器地址

   'Dim qcDomain          定义QC域的名称

   'Dim qcProject          定义QC项目名称

   'Dim qcUser             定义QC用户名称，必须保证这些用户有特定的执行权限

   'Dim qcPassword       定义QC用户的密码

   'Dim tsFolderName       定义测试集所在的路径（不包含"Root\"）

   'Dim tSetName          定义测试集的名称

   'Dim runMode    定义运行模式：本地运行或代理运行

   'Dim runHostName 定义代理运行的主机名称或IP地址，如果是本地运行则此参数自动失效

   'Dim resultGetter 定义邮件接受人（列表），多人则以英文半角的逗号”,“分隔

   '全局对象声明

   'On Error Resume Next

   Set Wshshell = CreateObject("Wscript.Shell")
   Set TDC = CreateObject("TDApiOle80.TDConnection")


         TDC.InitConnectionEx qcServer

         TDC.Login qcUser,qcPassword
         TDC.Connect qcDomain,qcProject

   '声明测试集树、路径、测试实验室、测试集名等对象

   Set tsTreeMgr = TDC.TestSetTreeManager

   Set tsFolder = tsTreeMgr.NodeByPath("Root\"&Trim(tsFolderName))

   Set tsList = tsFolder.FindTestSets(tSetName)


   If tsList.Count > 1 Then
      MsgBox "FindTestSets found more than one test set: refine search"

   ElseIf tsList.Count < 1 Then
      MsgBox "FindTestSets: test set not found"



   End If

   '报告当前运行测试集的测试集信息

   Set theTestSet = tsList.Item(1)

   'Wshshell.Popup "当前运行测试集ID为："&theTestSet.ID&"测试集名称为："&tSetName& "",1,"当前运行测试集为：",0

   '判断运行模式：本机执行、代理执行，并且选择代理运行的执行机

   If Trim(runMode) = "localrun" Then

         Set Scheduler = theTestSet.StartExecution("")

         Scheduler.RunAllLocally = True

         Scheduler.Run

   ElseIf Trim(runMode) = "remoterun" Then

         ' Wshshell.Popup "当前运行测试集ID为："&theTestSet.ID&"测试集名称为："&tSetName& "",1,"当前运行测试集为：",0

         Set  Scheduler = theTestSet.StartExecution("")

         Scheduler.TdHostName = runHostName

         Scheduler.Run

   Else
         Wshshell.Popup "调用接口错误，无此运行选项：【"&runMode&"】",1,"运行时错误：",0

         Set tsList = Nothing

         Set tsFolder = Nothing

         Set tsTreeMgr = Nothing
         Set TDC = Nothing

         Set Wshshell = Nothing

         Exit Sub
   End If

   Set execStatus = Scheduler.ExecutionStatus


   While (RunFinished = False)

         execStatus.RefreshExecStatusInfo "all",True

         RunFinished = execStatus.Finished
         Set EventList = execStatus.EventList

         Wshshell.Popup "现在时间【"&CStr(Now)&"】",1,"执行结果通知：",0

         Wscript.sleep 5000

   Wend


   Wshshell.Popup "执行全部完成于【"&CStr(Now)&"】",1,"执行结果通知：",0

   TDC.Disconnect()

   TDC.Logout()

   TDC.ReleaseConnection()

   '结束之后清空所有对象退出运行

   Set TestSetTestsList = Nothing
   Set TSTestFact = Nothing

   Set theTestSet = Nothing

   Set tsList = Nothing
   Set tsFolder = Nothing

   Set tsTreeMgr = Nothing

   Set Wshshell = Nothing
   Set TDC = Nothing

End Sub

Call RunTestSet("http://218.107.63.244:8080/qcbin/","DEFAULT","Notepad","username","password","notepad","test","remoterun","28.107.63.25","aaa@163.com")

为什么总是在执行到  Set  Scheduler = theTestSet.StartExecution("")时候说activaX对象不能创建啊。

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