例: cleartool コマンドを発行する (Visual Basic)

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