' How to use the Scripting object to iterate files in a directory, ' printing version information for those under source control 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