Example: Issuing a cleartool command (Visual Basic)

' Connect to the top-level ClearTool object
Dim ClearTool As New ClearCase.ClearTool

On Error Resume Next

' Issue a cleartool command using the IClearTool's default property (CmdExec)
MsgBox "Output from CmdExec:" & vbCrLf & ClearTool("pwv")

If Err.Number <> 0 Then
     MsgBox "ClearTool returned error: " & Err.Description
     Err.Raise Err.Number
End If

Feedback