QC OTA API - Test Resources - Check Out & Check In

Verify if a Resource is already Checked Out:

Resource.VersionData.IsCheckedOut would give us the Checked Out status of a particular Resource. Output is True / False

Set objQCConnection = QCUtil.QCConnection
Set objQCResourceFactory = objQCConnection.QCResourceFactory
Set objFilter = objQCResourceFactory.Filter

objFilter.Filter("RSC_NAME") = "Specified Resource Name"

Set objResources = objFilter.NewList

MsgBox objResources.Item(1).VersionData.IsCheckedOut

Set objResources = Nothing
Set objFilter = Nothing
Set objQCResourceFactory = Nothing
Set objQCConnection = Nothing

'You can get the Verion status using the below approach
Resource("RSC_VC_STATUS") - Output is Checked_Out / Checked_In

Set objQCConnection = QCUtil.QCConnection

Set objQCResourceFactory = objQCConnection.QCResourceFactory
Set objFilter = objQCResourceFactory.Filter
objFilter.Filter("RSC_NAME") = "Specified Resource Name"
Set objResources = objFilter.NewList
MsgBox objResources.Item(1)("RSC_VC_STATUS")
Set objResources = Nothing
Set objFilter = Nothing
Set objQCResourceFactory = Nothing
Set objQCConnection = Nothing

Check Out a Resource:

Set objQCConnection = QCUtil.QCConnection
Set objQCResourceFactory = objQCConnection.QCResourceFactory
Set objFilter = objQCResourceFactory.Filter

objFilter.Filter("RSC_NAME") = "Specified Resource Name"

Set objResources = objFilter.NewList

If Not(objResources.Item(1).VersionData.IsCheckedOut) Then

    objResources.Item(1).VC.CheckOut "" 'Check Out comments can be included here if needed

End If

Set objResources = Nothing
Set objFilter = Nothing
Set objQCResourceFactory = Nothing
Set objQCConnection = Nothing

Check In a Resource:

Set objQCConnection = QCUtil.QCConnection
Set objQCResourceFactory = objQCConnection.QCResourceFactory
Set objFilter = objQCResourceFactory.Filter

objFilter.Filter("RSC_NAME") = "Specified Resource Name"

Set objResources = objFilter.NewList

If objResources.Item(1).VersionData.IsCheckedOut Then

    objResources.Item(1).VC.CheckIn "" 'Check In comments can be included here if needed

End If

Set objResources = Nothing
Set objFilter = Nothing
Set objQCResourceFactory = Nothing
Set objQCConnection = Nothing