' Create an Indexing Service CatalogOn Error Resume NextSet objAdminIS = CreateObject("Microsoft.ISAdm")objAdminIS.Stop()Set objCatalog = objAdminIS.AddCatalog("Script Catalog","c:\scripts")objAdminIS.Start() search for scripts
' Create an Indexing Service CatalogOn Error Resume NextSet objAdminIS = CreateObject("Microsoft.ISAdm")objAdminIS.Stop()Set objCatalog = objAdminIS.AddCatalog("Script Catalog","c:\scripts")objAdminIS.Start()
Download Home Scripts Copyright © 2001-2024 adersοft