How to findout the QTP version you are using scripting

msgbox("Product Name: "&Environment("ProductName"))
msgbox("Product Version: "&Environment("ProductVer"))
msgbox("Product Directory: "&Environment("ProductDir"))

msgbox("Test Name: "&Environment("TestName"))
msgbox("Test Directory: "&Environment("TestDir"))