2010-07-16 20:49

/* Displays information about all the Indexing Service catalogs available on the local computer. */
objadminis = createcomobject("Microsoft.ISAdm")
IF objadminis~findfirstcatalog() = 0 THEN DO
	objcatadm = objadminis~getcatalog()
	SAY "Catalog location:" objcatadm~cataloglocation
	SAY "Catalog name:" objcatadm~catalogname
	IF objadminis~isrunning \= 0 THEN DO
		SAY "Is stopped:" objcatadm~iscatalogstopped()
		SAY "Is paused:" objcatadm~iscatalogpaused()
		SAY "Is running:" objcatadm~iscatalogrunning()
		SAY "Delayed filter count:" objcatadm~delayedfiltercount
		SAY "Documents to filter:" objcatadm~documentstofilter
		SAY "Filtered document count:" objcatadm~filtereddocumentcount
		SAY "Fresh test count:" objcatadm~freshtestcount
		SAY "Index size:" objcatadm~indexsize
		SAY "Percent merge complete:" objcatadm~pctmergecomplete
		SAY "Pending scan count:" objcatadm~pendingscancount
		SAY "Persistent index count:" objcatadm~persistentindexcount
		SAY "Query count:" objcatadm~querycount
		SAY "State info:" objcatadm~stateinfo
		SAY "Total document count:" objcatadm~totaldocumentcount
		SAY "Unique key count:" objcatadm~uniquekeycount
		SAY "Word list count:" objcatadm~wordlistcount
	 END

	 DO WHILE objadminis~findnextcatalog() = 0
		objcatadm = objadminis~getcatalog()
		SAY "Catalog location:" objcatadm~cataloglocation
		SAY "Catalog name:" objcatadm~catalogname
		IF objadminis.isrunning \= 0 THEN DO
			SAY "Is stopped:" objcatadm~iscatalogstopped()
			SAY "Is paused:" objcatadm~iscatalogpaused()
			SAY "Is running:" objcatadm~iscatalogrunning()
			SAY "Delayed filter count:" objcatadm~delayedfiltercount
			SAY "Documents to filter:" objcatadm~documentstofilter
			SAY "Filtered document count:" objcatadm~filtereddocumentcount
			SAY "Fresh test count:" objcatadm~freshtestcount
			SAY "Index size:" objcatadm~indexsize
			SAY "Percent merge complete:" objcatadm~pctmergecomplete
			SAY "Pending scan count:" objcatadm~pendingscancount
			SAY "Persistent index count:" objcatadm~persistentindexcount
			SAY "Query count:" objcatadm~querycount
			SAY "State info:" objcatadm~stateinfo
			SAY "Total document count:" objcatadm~totaldocumentcount
			SAY "Unique key count:" objcatadm~uniquekeycount
			SAY "Word list count:" objcatadm~wordlistcount
		END
	END
END

2010-07-16 20:49