Creating an ISearchAdmin Interface Object

You create an ISearchAdmin interface object by calling CreateObject, as in the following example, where objSearchAdmin is the name you give to the new ISearchAdmin interface object:

Option Explicit 
On Error Resume Next

Dim objSearchAdmin 

Set objSearchAdmin  = CreateObject("Search.SearchAdmin.1") 

Wscript.Echo "The host is " & objSearchAdmin.Hostname 

Wscript.Echo "Build Server has " _
  & objSearchAdmin.BuildServer.BuildCatalogs.Count & " catalogs" 

Wscript.Echo "Search Server has " _ 
  & objSearchAdmin.SearchServer.SearchCatalogs.Count _
  & " catalogs"

'Release objects 
Set objSearchAdmin  = Nothing