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

[shailesh.gcettb@gmail.com]

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

[supputuri]

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}"

[Shriram]

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)".