谢谢作者: hfsj 时间: 2006-9-27 17:15
给点真正的描述性代码给大家参考
et qtApp = CreateObject("QuickTest.Application")
Set TDConn =qtApp.TDConnection
If QCUtil.IsConnected then
TDconn.disconnect
End If
TDConn.connect "http://10.7.20.200/qcbin/","aaa","aaa","admin","",False
Set tdc =qcutil.QCConnection
Set TSetFact = tdc.TestSetFactory
Set tsTreeMgr = tdc.TestSetTreeManager
nPath = "Root\aaa\bbb\"
Set tsFolder = tsTreeMgr.NodeByPath(nPath)
Set tsList = tsFolder.FindTestSets("TCname")
Set theTestSet = tsList.Item(1)
Set Scheduler = theTestSet.StartExecution("")
Scheduler.TdHostName = "192.168.0.1"
Scheduler.run