Article ID: 163469
Article Last Modified on 2/20/2002
Sub Usage
The end of the line is:
call Maincscript setpropdest.vbs <catalogname> <search server name> c:\prop.
<siteserver dir>\data\search\projects\<catalog name>\search\drop.
cscript sssadmin.vbs add catalog /catalog:<catalog> /build:false /search:true
Sub Usage
WScript.Echo "Usage: setpropdest <catalog> <search server>
<destinationdir>"
WScript.Quit(1)
end Sub
Sub Main
On Error Resume Next
if WScript.Arguments.Count <> 3 then
Usage
end if
Set objHost = WScript.CreateObject("Search.SearchAdmin.1")
if not IsObject(objHost) then
WScript.echo "Cannot connect to host"
WScript.Quit(1)
end if
Set objBuildServer = objHost.BuildServer
if not IsObject(objBuildServer) then
WScript.echo "Cannot connect to build server"
WScript.Quit(1)
end if
Set objBuildCatalogs = objBuildServer.BuildCatalogs
if not IsObject(objBuildCatalogs) then
WScript.echo "Cannot connect to catalogs"
WScript.Quit(1)
end if
Set objBuildCatalog = objBuildCatalogs.Item( WScript.Arguments(0) )
if not IsObject(objBuildCatalog) then
WScript.echo "Cannot obtain catalog " & WScript.Arguments(0)
WScript.Quit(1)
end if
Set objSearchServers = objBuildCatalog.SearchServers
if not IsObject(objSearchServers) then
WScript.echo "Cannot obtain Search Servers"
WScript.Quit(1)
end if
set objSearchServer = objSearchServers.Item( WScript.Arguments(1) )
if not IsObject(objSearchServer) then
WScript.echo "Cannot obtain Search Server : " &
WScript.Arguments(1)
WScript.Quit(1)
end if
wscript.echo "Search Server Name :" &
objSearchServer.Name
wscript.echo "Search Server Prop Destination :" &
objSearchServer.PropDestination
wscript.echo "Setting destination to : " & WScript.Arguments(2)
objSearchServer.PropDestination = WScript.Arguments(2)
wscript.echo "Search Server Prop Destination :" &
objSearchServer.PropDestination
End Sub
call Main
NOTE: The above sample code is provided for demonstration purposes only.
Keywords: kbhowto KB163469