例: ユーザーのストリームについての情報を表示する

' 指定されたユーザーによって所有されているすべてのビューが、
' 特定のプロジェクト VOB 内のすべてのプロジェクトで、そのユーザーによって
' 所有されているすべての開発ストリームに接続されているかどうかを判別します。

Dim CC As New ClearCase.Application

' "¥projects" というタグが付いたプロジェクト VOB を取得します。

Dim PVOB As CCProjectVOB
On Error Resume Next
Set PVOB = CC.ProjectVOB("¥projects")
If Err.Number <> 0 Then
     MsgBox "Error getting project VOB: " & Err.Description
Else

     ' プロジェクト VOB 内のプロジェクトを取得し、それぞれを反復して、
     ' プロジェクトに開発ストリームが接続されているかどうかを判別します。

     Dim Projects As CCProjects
     Dim Name As String
     Dim Str As String
     On Error Resume Next
     Str = ""
     Set Projects = PVOB.Projects
     If Err.Number <> 0 Then
          MsgBox "Error getting projects from project VOB: " & _
          Err.Description
     Else
          MsgBox "Iterating over " & Projects.Count & " Project(s)"
          Name = "rational¥jed"
          Dim Project As CCProject
          For Each Project In Projects

          ' プロジェクトに "Name" によって所有される開発ストリームがある場合は、
          ' それらのストリームに接続している、"Name" が所有するビューを取得します。

          If Project.HasStreams Then
               Dim Streams As CCStreams
               Dim Stream As CCStream
               Set Streams = Project.DevelopmentStreams(Name)
               For Each Stream In Streams
                    Dim Views As CCViews
                    Set Views = Stream.Views(Name)
                    Dim View As CCView
                    For Each View In Views
                        Str = Str & View.TagName & " in stream: " & _
                        Stream.Title & vbCrLf
                    Next
               Next     
          End If
          Next
     End If
     If Str = "" Then
          MsgBox "No views owned by " & Name
     Else
          MsgBox "Views owned by " & Name & " :" & vbCrLf & Str
     End If
End If