Enum Method

This method lists the parameters of the Posting Acceptor.

Syntax

ReplicationPostingAcceptor.Enum(Iterator, ParamName)

Parameters

Iterator

Used by the service to enumerate the list of parameters. This value should be initialized to zero, and should not be modified.

ParamName

Used by the service to enumerate the names of the parameters. This value should be initialized to an empty string (""), and should not be modified.

Remarks

You must have Site Server Publishing administrator privileges on the server to call this method.

The parameters are described in the following table:

Parameter	Description
MaximumOpenTransactions	The maximum number of transactions that can be running at the same time.
OpenTransactionsTimeout	The timeout duration, in milliseconds.
AllowAnonymous	Whether anonymous users can post.
AutoStartReplications	Whether replications are automatically started when a new post arrives.
PathToPA	The absolute path to the posting acceptor directory.
RepostURL	The URL on the destination server to which the postings are sent.
TargetURL	The URL on the source server from which the postings are sent.

Example

The following example lists the parameters of the Posting Acceptor.

const CRS_ERROR_NO_MORE_ITEMS  = 0&80003B17

dim ReplServer
set ReplServer = CreateObject("Crsapi.ReplicationServer")
ReplServer.Initialize("")
dim RepPA
set RepPA = ReplServer.OpenPostingAcceptor

dim ParamName
ParamName = ""
dim ParamVal
dim Iterator
Iterator = 0
dim ReplError

do while True
  'Clear any error text
  Err.Clear

  ParamVal = RepPA.Enum(Iterator, ParamName)

  'Quit if ParamName is empty (no parameter returned)
  if IsEmpty(ParamVal) then exit do

  'Quit if "No more items" error 

  ReplError = Err.Number
  if ReplError = CRS_ERROR_NO_MORE_ITEMS then exit do

  Wscript.Echo ParamName & " = " & ParamVal
Loop

'Release objects
set RepPA      = Nothing
set ReplServer = Nothing