write the below script in a notepad, save it as .vbs , close qtp window, double click the vbs file.
'Once you launch qtp with some add ins selected, you can not add a new add in at run time! by the way i wonder why you are selecting all the add ins!
Code:
set q=createobject("quicktest.application")
q.visible=true
msg="enter 1 for older version" &vbnewline &"2 for newer version"
op=inputbox(msg)
if op=1 then
addinlist=array("Web","ActiveX","Visual Basic")
elseif op=2 then
' I dont know about WPF addin, assuming the name is "WPF"
addinlist=array("Web","ActiveX","Visual Basic","WPF")
end if
q.setactiveaddins addinlist
q.launch
'path of test folder
q.open "D:\MyTest"
q.test.run
set q=nothing