How to Launch QTP Window Using VB Scripting?

Procedure: Open a Notepad and Paste the Below Script and save Script in specific location with .vbs extension (Ex: Test.vbs). Once the Script is saved in required format, Click on the saved File (Double Click). The Script will Launch QTP Window with in time.

Code:
Set QApp = CreateObject("Quicktest.Application") ' Creates QuickTest Object to QAppVariable
QApp.Launch 'Requesting to Launch QTP
QApp.Visible = True ' To verify QTP is Visibled or not
Set QApp = Nothing ' The Purpose of this satement is to release the Application object