' 最上位の 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