URGENT: ActiveX component can't create object

[citibank_ani]

I created a test in QTProff and then tried to run the test from the command prompt through this script.

I fired the commands from C prompt:
1) cscript //nologo C:\Daily_Status_Checkout\Daily_Checkout.vbs

Where C:\Daily_Status_Checkout is my QTP script test location and Daily_Checkout.vbs is the script mentioned below.

Gave below mentioned error -
C:\Daily_Status_Checkout\Daily_Checkout.vbs(5, 1) Microsoft VBScript runtime error: ActiveX component can't create object: 'QuickTest.Application'

2) wscript C:\Daily_Status_Checkout\Daily_Checkout.vbs

Gave the attached error in a picture file.

C:\Daily_Status_Checkout\Daily_Checkout.vbs file:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Code:

Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Dim qtTest 'As QuickTest.Test ' Declare a Test object variable
Dim qtResultsOpt 'As QuickTest.RunResultsOptions ' Declare a Run Results Options object variable

Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Start QuickTest
qtApp.Visible = True ' Make the QuickTest application visible

' Set QuickTest run options
qtApp.Options.Run.ImageCaptureForTestResults = "OnError"

qtApp.Options.Run.RunMode = "Fast"
qtApp.Options.Run.ViewResults = False

qtApp.Open "C:\Daily_Status_Checkout", True ' Open the test in read-only mode

' set run settings for the test

Code:

Set qtTest = qtApp.Test
qtTest.Settings.Run.IterationMode = "rngIterations" ' Run only iterations 2 to 4
qtTest.Settings.Run.StartIteration = 2
qtTest.Settings.Run.EndIteration = 4
qtTest.Settings.Run.OnError = "NextStep" ' Instruct QuickTest to perform next step when error occurs

Set qtResultsOpt = CreateObject("QuickTest.RunResultsOptions") ' Create the Run Results Options object
qtResultsOpt.ResultsLocation = "C:\Daily_Status_Checkout\DSCRes1" ' Set the results location
qtTest.Run qtResultsOpt ' Run the test

WScript.StdOut.Write "Status is :" & qtTest.LastRunResults.Status ' Check the results of the test run
qtTest.Close ' Close the test

Set qtResultsOpt = Nothing ' Release the Run Results Options object
Set qtTest = Nothing ' Release the Test object
Set qtApp = Nothing ' Release the Application object

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Please help me in running this automatically. I have tried adding some snippets as well to the script as shown below to kill any running session of QTProff.

Code:

Dim objWMIService, objProcess, colProcess
Dim strComputer, strProcessKill
strComputer = "."
strProcessKill = "'QTPro.exe'"

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")

Set colProcess = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = " & strProcessKill )
For Each objProcess in colProcess
objProcess.Terminate()
Next

which also gave me the same error, asserting the fact that this was not the issue. So someone please guide me.

[sasmitakumari]

Were you able to run same script, previously?
If so, then it could be timing issue, QTP might be taking more time to open than expected.
Restart you machine, and try it again.

[citibank_ani]

I wasn't able to run the script at any time. I am getting this error from the time I tried to do this.

Also like before running every time I have checked whether QTP is running or not, and ran the script only when there are no instances of QTP running in back/foreground.

One information I would like to provide is that I don't have admin rights on the machine in which I am running this.

[VarunKaushik]

which QTP version you are running.
If QTP 10.5 & below
then follow these steps
open cmd as adminstrator
"C:\Program Files\HP\QuickTest Professional\bin\QTAutomationAgent.exe.exe" /regserver

if 11.53 & above
"C:\Program Files\HP\QuickTest Professional\bin\QtpAutomationAgent.exe.exe" /regserver