How to invoke the recording of QTP using AOM(automation object model) of QTP

How to invoke the recording of QTP using AOM(automation object model) of QTP - Printable Version

+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: UFT / QTP Beginners (https://www.learnqtp.com/forums/Forum-UFT-QTP-Beginners)
+--- Thread: How to invoke the recording of QTP using AOM(automation object model) of QTP (/Thread-How-to-invoke-the-recording-of-QTP-using-AOM-automation-object-model-of-QTP)

How to invoke the recording of QTP using AOM(automation object model) of QTP - shailesh.gcettb@gmail.com - 01-30-2014

I want to invoke the recording of QTP using AOM(automation object model) of QTP.
Requirement Explanation : I want to invoke QTP record through AOM using VBS.As we can create object of QTP application and using that object can control and use all the feature of QTP.
Following are the example which loads test and run using AOM of QTP.

Code:
Set gobjQtpApp = CreateObject("QuickTest.Application")

gobjQtpApp.Launch

gobjQtpApp.Visible = True

gobjQtpApp.Open "test path", True

gobjQtpApp.Test.Run

In the same way I want to invoke qtp application and then start recording using AOM.I have tried following code did not work.

gobjQtpApp.Test.Record

Please help me out

RE: How to invoke the recording of QTP using AOM(automation object model) of QTP - supputuri - 02-18-2014

you can use the shell object and use the send keys to simulate the recording.

Code:
Set WShell =CreateObject("WScript.Shell")

WShell.SendKeys "{F3}"

WShell.SendKeys "{ENTER}"

RE: How to invoke the recording of QTP using AOM(automation object model) of QTP - Shriram - 05-08-2014

I tried with the following code:

Code:
Dim shl

set shl = createobject("wscript.shell")

shl.sendkeys "{ENTER}"

wscript.Sleep (5000)

I am facing the below runtime error:

Object required: 'wscript'

Function file: C:\modal_window.vbs

Code:
Line (4): "wscript.Sleep (5000)".

I replaced 4th line of code as below:

Code:
Dim shl

set shl = createobject("wscript.shell")

shl.sendkeys "{ENTER}"

shl.Sleep (5000)

I am facing the below error:
Object doesn't support this property or method: 'Sleep'

Function file: C:\modal_window.vbs

Code:
Line (4): "shl.Sleep (5000)".