This property specifies the friendly name for the event sink.
Syntax
ReplicationEventSinkConfig.Name[=Name]
Parameters
Name
The name of the event sink.
Remarks
You must have Site Server Publishing administrator privileges on the server to call this method.
Example
The following example displays the names of all of the event sinks.
Option Explicit
On Error Resume Next
const CRS_ERROR_NO_MORE_ITEMS = 0&80003B17
const CRS_EVENT_RECEIVING_ACL = 0&40003786
dim ReplServer
set ReplServer = CreateObject("CrsApi.ReplicationServer")
ReplServer.Initialize("")
Wscript.Echo "The event sinks are:"
dim Iterator
Iterator = 0
dim EvSink
do while True
'Clear any error text
Err.Clear
'Get an event sink
set EvSink = ReplServer.EnumEventSinks(Iterator)
'Quit if empty object returned (no more instances)
if IsEmpty(EvSink) then exit do
'Quit if "No more items" error
dim ReplError
ReplError = Err.Number
if ReplError = CRS_ERROR_NO_MORE_ITEMS then exit do
Wscript.Echo EvSink.Name
Loop
'Release objects
set EvSink = Nothing
set ReplServer = Nothing
See Also
ReplicationServer.AddEventSink, ReplicationServer.EnumEventSinks