This read-only property contains the name of a site.
Syntax
IServer.Name
Example
The following example displays how often Search is allowed to access the site Microsoft.com.
Option Explicit
On Error Resume Next
Dim objSearchAdmin, objBuildServer, objCatalogs, objCatalog, objServers, objServer
Set objSearchAdmin = CreateObject("Search.SearchAdmin.1")
Set objBuildServer = objSearchAdmin.BuildServer
Set objCatalogs = objBuildServer.BuildCatalogs
Set objCatalog = objCatalogs("KMSampleCatalog1")
Set objServers = objCatalog.Sites
For Each objServer in objServers
If objServer.Name = "Microsoft.com" Then
Wscript.Echo "Search accesses " & objServer.Name & " every "
& objServer.HitInterval & " seconds."
End If
Next
'Release objects
Set objServer = Nothing
Set objServers = Nothing
Set objCatalog = Nothing
Set objCatalogs = Nothing
Set objBuildServer = Nothing
Set objSearchAdmin = Nothing
See Also