Launch TestPartner from VBscript or any other tool
' VB Script Document
option explicit
To launch TestPartner from VBscript or any other tool, use following code:
Steps:
1) Create a TestPartner application
2) Login to Testpartner
3) Make TestPartner visible
4) Connect to a Project
5) Open a script and execute
6) Wait until testpartner is executing script
7) Check results
8) Stop script.
Dim tp 'As testpartner Object
Dim proj 'As project Object
Dim scr 'As script Object
Dim Username, Password, Databasename, Projectname , Scriptname
'1) Create a TestPartner application
'
Set tp = CreateObject("TestPartner.Application") 'create an instance of TestPartner
'2) Login to Testpartner
tp.Login Username, Password, Databasename, True 'provide TestPartner login, password and database name details
'3) Make TestPartner visible'
tp.show() 'show TestPartner App
'4) Connect to a Project'
Set proj = tp.Projects.Item(Projectname) 'select project
tp.show()
'5) Open a script and execute'
Set scr = proj.Scripts.Item(Scriptname) 'select script
scr.Open() 'open script
scr.Execute() 'execute script
'6) Wait until testpartner is executing script
' check every second if script is still running
While tp.PlaybackInProgress
Wend
'7) Check results
' show script result in a message box
MsgBox(tp.LastResult.ChecksPassed & "/" & tp.LastResult.ChecksExecuted)
'8) Stop script.'
tp.stop()