2010-07-16 20:49

/* Displays a list of all the files included in the Indexing Service catalog named "Script Catalog". */
objconnection = createcomobject("ADODB.Connection")
objconnection~connectionstring = "provider=msidxs;"
oprop = objconnection~properties()
oprop~"Data Source" = "Script Catalog"
objconnection~open()

objcommand = createcomobject("ADODB.Command")
 
strquery = "Select Filename from Scope()"
objrecordset = objconnection~execute(strquery)
 
DO WHILE objrecordset~eof() = 0
    SAY objrecordset~filename
    objrecordset~movenext()
END

2010-07-16 20:49