例: VBScript を使用してディレクトリを反復する

' スクリプト オブジェクトを使用してディレクトリ内のファイルを反復し、
' ソース制御下にあるバージョン情報を出力します。

Set CC = Wscript.CreateObject("ClearCase.Application")
Set DirVer = CC.Version(".")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Folder = FSO.GetFolder(DirVer.Path)
Wscript.Echo "Files under source control: "
For Each File in Folder.Files
     On Error Resume Next
     Set Ver = CC.Version(File.Name)
     If Err.Number = 0 Then
          Wscript.Echo Ver.ExtendedPath
     End If
Next