Hi...use the below code
u can give ur desired shared OR path
Code:
Set qtRepositories = oApp.Test.Actions.item(1).ObjectRepositories
qtRepositories.RemoveAll()
qtRepositories.Add "C:\ObjRep.tsr"u can give ur desired shared OR path

