Previous in Contents Next in Contents

Source Property

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


© 1997-2000 Microsoft Corporation. All rights reserved.