' この例では、エレメントのロックについて説明しますが、 ' 他の CCVOBObjects のロックも同様の方法で機能します。 ' 最上位の Rational ClearCase アプリケーション オブジェクトに接続します。 Dim CC As New ClearCase.Application Dim Elem As CCElement ' 最上位のアプリケーション オブジェクトから CCElement オブジェクトを取得します。 Set Elem = CC.Element("m:¥carol_main¥caroltest¥testelem.c") ' エレメント上にロックを作成します。ただし、エレメントを不要にはしません。 ' ユーザー "jo" および "caroly" をロック免除にします。 Elem.CreateLock "locking from example script", False, Array("jo", "caroly") ' ロックに関するいくつかの情報を出力します。 ' 注: 例ではエラー チェックを実行していませんが、実際にはエラー チェックを実行してください。 Dim ElemLock As CCLock Set ElemLock = Elem.Lock Dim Record As CCHistoryRecord Set Record = ElemLock.CreationRecord ' 免除ユーザーのリストを取得します。 Dim ExemptUsers as Variant Dim strUsers as String ExemptUsers = ElemLock.ExemptUsersStringArray For I = 0 To ElemLock.NumberOfExemptUsers - 1 If I <> 0 Then strUsers = strUsers & ", " & ExemptUsers(I) Else strUsers = ExemptUsers(I) End If Next I ' その他のロック情報を出力します。 MsgBox "Lock created by " & Record.UserLoginName & " at " & Record.Date & _ " and has " & ElemLock.NumberOfExemptUsers & " exempt users: " & strUsers ' ここで、Array() 関数ではなく、宣言した配列を使用して、 ' 免除ユーザーのリストを変更します。 Dim Arr(3) As String Arr(0) = "bill" Arr(1) = "eric" Arr(2) = "caroly" ElemLock.SetExemptUsersStringArray(Arr) ' アンロックします。 ElemLock.Remove