Note
Access to this page requires authorization. You can try signing in or changing directories.
Access to this page requires authorization. You can try changing directories.
For the latest version of Commerce Server 2007 Help, see the Microsoft Web site.
The following example replicates a Commerce Server Staging (CSS) Web content project from a source computer to a destination computer.
To run this sample, you must configure two computers to run CSS and replace the values of the constants SOURCE_MACHINE_NAME and DESTINATION_MACHINE_NAME with the names of the two computers. You must also create the directory that contains the content files to replicate on the source computer. This directory is named c:\source_directory in the example.
Option Explicit
On Error Resume Next
const SOURCE_MACHINE_NAME = "Source"
const DESTINTION_MACHINE_NAME = "Dest"
dim SourceReplicationServer
dim DestinationReplicationServer
dim SourceReplicationProject
dim DestinationReplicationProject
dim ReplicationInstance
dim ReplicationStatus
set SourceReplicationServer = CreateObject("CssApi.ReplicationServer")
set DestinationReplicationServer = CreateObject("CssApi.ReplicationServer")
SourceReplicationServer.Initialize(SOURCE_MACHINE_NAME)
DestinationReplicationServer.Initialize(DESTINTION_MACHINE_NAME)
WScript.Echo "Creating a project on the source server."
set SourceReplicationProject = SourceReplicationServer.OpenProject("MyProject", 1)
SourceReplicationProject.LocalDirectory = "c:\source_directory"
SourceReplicationProject.AddDestination(DESTINTION_MACHINE_NAME)
SourceReplicationProject.Commit
Wscript.Echo "Creating a project on the destination server."
set DestinationReplicationProject = DestinationReplicationServer.OpenProject("MyProject", 1)
DestinationReplicationProject.LocalDirectory = "c:\destination_directory"
DestinationReplicationProject.Commit
Wscript.Echo "Starting the replication project."
set ReplicationInstance = SourceReplicationProject.Start(0)
do while True
ReplicationInstance.Query()
if ReplicationInstance.State = 0 Or ReplicationInstance.State = 4 Or ReplicationInstance.State = 5 Or ReplicationInstance.State = 8 Or ReplicationInstance.State = 9 then exit do
WScript.Echo "Replication in progress ..."
WScript.Sleep 2000
Loop
WScript.Echo "Replication end state was " & ReplicationInstance.State
'Release the objects.
set SourceReplicationServer = Nothing
set DestinationReplicationServer = Nothing
set SourceReplicationProject = Nothing
set DestinationReplicationProject = Nothing
set ReplicationInstance = Nothing
set ReplicationStatus = Nothing