This property specifies the server to which the forwarding event sink forwards events.
Syntax
ReplicationEventSinkConfig.Server
Remarks
This property is used only by the forwarding event sink.
You must have Site Server Publishing administrator privileges on the server to get or set this property.
Example
The following example displays the name of the server to which the forwarding event sink forwards events.
Option Explicit
On Error Resume Next
const CRS_ERROR_NO_MORE_ITEMS = 0&80003B17
dim ReplServer
set ReplServer = CreateObject("CrsApi.ReplicationServer")
ReplServer.Initialize("")
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
if EvSink.CLSID = "Crssink" then
Wscript.Echo "Crssink forwards to server " & EvSink.Server
exit do
end if
Loop
'Release objects
set EvSink = Nothing
set ReplServer = Nothing