This read-only property specifies the ISearchCatalogs interface on the host.
Syntax
ISearchServer.SearchCatalogs
Example
The following example displays the names of the catalogs.
Option Explicit
On Error Resume Next
Dim objSearchAdmin, objSearchServer, objCatalogs, objCatalog
Set objSearchAdmin = CreateObject("Search.SearchAdmin.1")
Set objSearchServer = objSearchAdmin.SearchServer
Set objCatalogs = objSearchServer.SearchCatalogs
For Each objCatalog in objCatalogs
Wscript.Echo "objCatalog: " & objCatalog.Name
Next
'Release objects
Set objCatalog = Nothing
Set objCatalogs = Nothing
Set objSearchServer = Nothing
Set objSearchAdmin = Nothing
See Also