title: OTA QC ALM :ActiveX component can't create object:Set Scheduler = theTestSet.StartExecution("")
body: <p>I am trying to execute below OTA code from VBS file to have each test in the test set executed</p>
  
  <p>but I am getting an error ActiveX component can't create object at the step</p>
  
  <p>Set Scheduler = theTestSet.StartExecution("")</p>
  
  <p>My System details:</p>
  
  <p>OS: Windows 7 Professional
  System Type: 64-bit Operating System
  ALM Version: 12.0</p>
  
  <p>Code:</p>
  
  <p>Set ALMConnection = CreateObject("TDAPIOLE80.TDConnection")</p>
  
  <p>'Connect to server
  ALMConnection.InitConnectionEx "<a href="http://alm.zebra.com/qcbin" rel="nofollow noreferrer">http://alm.zebra.com/qcbin</a>"</p>
  
  <p>'Authenticate user
  ALMConnection.Login "uk1346", "aJanuary$2018"</p>
  
  <p>' Connect to project
  ALMConnection.Connect "ZEBRA_PROJECTS", "Zebra_Global_Projects"</p>
  
  <p>Set TSetFact = ALMConnection.TestSetFactory</p>
  
  <p>Set tsTreeMgr = ALMConnection.TestSetTreeManager</p>
  
  <p>nPath = "Root\" &amp; Trim("Automation\Automation Dry Run")</p>
  
  <p>Set tsFolder = tsTreeMgr.NodeByPath(nPath)</p>
  
  <p>If (tsFolder Is Nothing) Then</p>
  
  <p>MSGBOX "Folder is not found"</p>
  
  <p>Else</p>
  
  <p>MSGBOX "Folder is found"</p>
  
  <p>End If</p>
  
  <p>Set tsList = tsFolder.FindTestSets("Dry Run")</p>
  
  <p>If tsList.Count > 0 Then</p>
  
  <p>MSGBOX "FindTestSets found more than one test set"</p>
  
  <p>ElseIf tsList.Count &lt; 1 Then</p>
  
  <p>MSGBOX "FindTestSets: test set not found"</p>
  
  <p>End If</p>
  
  <p>Set theTestSet = tsList.Item(1)</p>
  
  <p>MSGBOX theTestSet.ID
  '
  Set Scheduler = theTestSet.StartExecution("")</p>
  
  <p>Scheduler.RunAllLocally = True</p>
  
  <p>Scheduler.Run</p>
  
  <p>Set execStatus = Scheduler.ExecutionStatus</p>
  
  <p>MSGBOX execStatus</p>
  
  <p>Set ALMConnection = Nothing</p>