Dim objCC
Set objCC = Wscript.CreateObject("ClearCase.Application")

Dim COQuery
Set COQuery = objCC.CreateCheckedOutFileQuery

Dim CheckedOutFiles
Set CheckedOutFiles = COQuery.Apply

Dim strMsg
strMsg = CheckedOutFiles.Count & " files are checked out: "