This read-only property specifies the status of the catalog.
Syntax
IBuildCatalog.Status
Example
The following example displays the status of all catalogs.
Option Explicit
On Error Resume Next
Dim objSearchAdmin, objBuildServer, objCatalogs, objCatalog
Set objSearchAdmin = CreateObject("Search.SearchAdmin.1")
Set objBuildServer = objSearchAdmin.BuildServer
Set objCatalogs = objBuildServer.BuildCatalogs
For Each objCatalog in objCatalogs
Wscript.Echo "Status For " & objCatalog.Name & ": " _
& objCatalog.Status
Next
'Release objects
Set objCatalog = Nothing
Set objCatalogs = Nothing
Set objBuildServer = Nothing
Set objSearchAdmin = Nothing
See Also