Load SOR using VBScript

'############################################

'Usage:

'sTsrMap = "C:\MyProjects\objectRepository.tsr"

'LoadUnloadTsr sTsrMap

'############################################

Public Function LoadUnloadTsr(sTsrMap)

Dim qtApp, qtRepositories

Set qtApp = CreateObject("QuickTest.Application")

' getting the action name.

ActionName = Environment("ActionName")

' creating an object in order to access repositories of the above action.

Set qtRepositories = qtApp.Test.Actions(ActionName).ObjectRepositories

' removing all previously associated repositories.

qtRepositories.RemoveAll

' loading the repository.

qtRepositories.Add sTsrMap,1

Set qtApp = Nothing

End Function