This method forces a propagation of the build catalog.
Syntax
IBuildCatalog.ForceProp
Example
The following example forces the propagation of all the catalogs on the local host.
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
objCatalog.ForceProp
Next
'Release objects
Set objCatalogs = Nothing
Set objBuildServer = Nothing
Set objSearchAdmin = Nothing
See Also
AbortProp