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