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

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