Add Method

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

IIndexDs interface, Remove


© 1997-1998 Microsoft Corporation. All rights reserved.