Invoke/ Start QTP using Vbscript file using AOM (Automation Object Model )

Here is the short code to Start qtp using Vbscript file.
Paste below code in notepad file and save it with .vbs extension

set qtp = createobject("quicktest.application")
'Creates object called qtp used for AOM


'Makes qtp window visible
qtp.visible = true



'Actually Opens QTP
qtp.launch 


'Open the saved.vbs file by double clicking on it. It will open QTP window