Usually, we face this situation when multiple people simultaneous work with different resources from ALM or forget to close the accessed resources in Automation tool or association of resources in tool are in utilization. Any of above can hinder your work, below script can unblock you to proceed ahead.
Dim QCUserName, QCCon, con, recset
QCUserName = "" 'ALM user which locked the user
Set QCCon = QCUtil.QCConnection
Set Con = QCCon.Command
Con.CommandText = "DELETE FROM LOCKS WHERE LK_USER = "&QCUserName&""
Set recset = Con.execute
Set QCCon = Nothing
Sec con = Nothing
set recset = Nothing
"A good threat is worth a thousand tests" - Boris Beizer