Result = ASObjLocks(ASObjLockCollection, Connection, ObjectName, LibraryName, ObjectType, [MemberName], [objPathName],[objASPName])
In French: ASVerrouObjets.
