' 最上位の ClearCase アプリケーション オブジェクトに接続します。
Dim CC As New ClearCase.Application
Dim VOB As CCVOB
' VOB タグから VOB を取得します。
Set VOB = CC.VOB("¥caroltest")
Dim strMounted As String
If VOB.IsMounted Then
strMounted = " is mounted"
Else
strMounted = " is not mounted"
End If
' いくつかの VOB プロパティを表示します。
MsgBox VOB.TagName & " on host " & VOB.Host & strMounted & _
" and has owner " & VOB.Owner & " and group " & VOB.Group