This property specifies the source computer where the error occurred.
Syntax
ReplicationClientError.Source
Remarks
The source computer should be the computer where the client was created.
You must have Site Server Publishing administrator privileges on the server to get or set this property.
Example
The following example initializes the project. If any errors occur during initialization, the example displays the source computer name where the client was created.
Option Explicit
On Error Resume Next
dim Client
set Client = CreateObject("CrsApi.ReplicationClient")
Client.Initialize("Project1")
if err.Number > 0 then
dim ClientError
set ClientError = Client.GetExtendedErrorInfo
'If the ClientError array isn't empty, loop through it
'and display each error
dim NumElements
NumElements = Ubound(ClientError)
if NumElements > 0 then
dim Project
Project = ClientError(0).Project
dim Source
Source = ClientError(0).Source
Wscript.Echo "Failed to initialize project: " & Project
Wscript.Echo "On machine: " & Source
Wscript.Echo "The following errors were received"
dim i
for i = 0 to NumElements
Wscript.Echo "Error code: " & ClientError(i).ErrorCode
Wscript.Echo "Description: " & ClientError(i).Description
Next
end if
end if
'Release objects
set ClientError = Nothing
set Client = Nothing
See Also
ReplicationClient.GetExtendedErrorInfo