' 最上位の ClearTool オブジェクトに接続します。
Dim ClearTool As New ClearCase.ClearTool
On Error Resume Next
' IClearTool のデフォルト プロパティ (CmdExec) を使用して cleartool コマンドを発行します。
MsgBox "Output from CmdExec:" & vbCrLf & ClearTool("pwv")
If Err.Number <> 0 Then
MsgBox "ClearTool returned error: " & Err.Description
Err.Raise Err.Number
End If