Accessing an IProtocol Object

You can access a specific IProtocol object by calling the IProtocols.Item method. Since IProtocols is a collection, you can access all IProtocol objects using a for each loop, as in the following example, where objProtocol is the name you give to the IProtocol object:

Option Explicit 
On Error Resume Next 

Dim objSearchAdmin, objBuildServer, objCatalogs, objCatalog, objProtocols, objProtocol 

Set objSearchAdmin = CreateObject("Search.SearchAdmin.1") 
Set objBuildServer = objSearchAdmin.BuildServer 
Set objCatalogs = objBuildServer.BuildCatalogs 

For Each objCatalog in objCatalogs 
  Set objProtocols  = objCatalog.objProtocols 

  For Each objProtocol in objProtocols
    If objProtocol.Included Then
      Wscript.Echo UrlName & " using ProgID: " & ProgIdHandler
    End If
  Next
Next

'Release objects 
Set objProtocol   = Nothing 
Set objProtocols  = Nothing 
Set objCatalog    = Nothing 
Set objCatalogs   = Nothing 
Set objBuildServer   = Nothing 
Set objSearchAdmin   = Nothing