This read-only property specifies the path rules (ISitePaths interface) associated with a site.
Syntax
ISiteResriction.Paths
Example
The following example displays the paths for the sites in the restricted site list for the KMSampleCatalog1 catalog definition.
Option Explicit
On Error Resume Next
Dim objSearchAdmin, objBuildServer, objCatalogs, objCatalog, objSites, objSite, objPaths, objPath
Set objSearchAdmin = CreateObject("Search.SearchAdmin.1")
Set objBuildServer = objSearchAdmin.BuildServer
Set objCatalogs = objBuildServer.BuildCatalogs
Set objCatalog = objCatalogs("KMSampleCatalog1")
Set objSites = objCatalog.objSites
Wscript.Echo objCatalog.Name & " has the following restricted sites:"
For Each objSite in objSites
Wscript.Echo " " & objSite.Name & " has the following paths:"
objPaths = objSite.objPaths
For Each objPath in objPaths
Wscript.Echo objPath.Name
Next
Wscript.Echo ""
Next
'Release objects
Set objPath = Nothing
Set objPaths = Nothing
Set objSite = Nothing
Set objSites = Nothing
Set objCatalog = Nothing
Set objCatalogs = Nothing
Set objBuildServer = Nothing
Set objSearchAdmin = Nothing
See Also