This method adds a search server to the list of search servers to which a catalog is propagated.
Syntax
ICatalogSearchServerList.Add(Server)
Parameters
Server
The server that is added to the list.
Example
The following example adds the server KnowledgeServer1 to the list of servers to which the KMSampleCatalog1 catalog definition is propagated.
Option Explicit
On Error Resume Next
Dim objSearchAdmin, objBuildServer, objCatalogs, objCatalog, objServers
Set objSearchAdmin = CreateObject("Search.SearchAdmin.1")
Set objBuildServer = objSearchAdmin.BuildServer
Set objCatalogs = objBuildServer.BuildCatalogs
Set objCatalog = objCatalogs("KMSampleCatalog1")
Set objServers = objCatalog.SearchServers
objServers.Add("KnowledgeServer1")
'Release objects
Set objServers = Nothing
Set objCatalog = Nothing
Set objCatalogs = Nothing
Set objBuildServer = Nothing
Set objSearchAdmin = Nothing
See Also