Creating a Route and Replicating Business Data Sample
For the latest version of Commerce Server 2007 Help, see the Microsoft Web site.
The following example creates a Commerce Server Staging (CSS) route and then replicates business data over the route.
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. On the source computer, you must create the directory that business data will be exported to. This directory is named c:\source_directory in the example. You must also create a configuration file that is named BusinessDataProjectDefinition.xml in the same location as this script. A sample BusinessDataProjectDefinition.xml file is provided later in this topic.
Option Explicit
On Error Resume Next
const SOURCE_MACHINE_NAME = "Source"
const DESTINATION_MACHINE_NAME = "Dest"
dim SourceReplicationServer
dim DestinationReplicationServer
dim ReplicationProject
dim SourceReplicationRoute
dim DestinationReplicationRoute
dim ReplicationInstance
dim ReplicationStatus
set SourceReplicationServer = CreateObject("CssApi.ReplicationServer")
set DestinationReplicationServer = CreateObject("CssApi.ReplicationServer")
SourceReplicationServer.Initialize(SOURCE_MACHINE_NAME)
DestinationReplicationServer.Initialize(DESTINATION_MACHINE_NAME)
'Create the route on the source server.
Wscript.Echo "Creating the route on the source server."
set SourceReplicationRoute = SourceReplicationServer.AddRoute("MyRoute")
SourceReplicationRoute.BaseDirectory = "c:\source_directory"
SourceReplicationRoute.AddDestination(DESTINATION_MACHINE_NAME)
SourceReplicationRoute.Commit
'Create the route on the destination server.
Wscript.Echo "Creating the route on the destination server."
set DestinationReplicationRoute = DestinationReplicationServer.AddRoute("MyRoute")
DestinationReplicationRoute.BaseDirectory = "c:\destination_directory"
DestinationReplicationRoute.Commit
dim XmlDoc
set XmlDoc=CreateObject("Microsoft.XMLDOM")
XmlDoc.async="false"
XmlDoc.load("BusinessDataProjectDefinition.xml")
'Create a project over the route.
WScript.Echo "Creating a project over the route."
set ReplicationProject = SourceReplicationServer.OpenProject("MyBusinessDataProject", 1)
ReplicationProject.LocalDirectory = "c:\source_directory"
ReplicationProject.BusinessDataProject = True
ReplicationProject.BusinessDataProjectXml = XmlDoc.documentElement.xml
ReplicationProject.Flags = 512
ReplicationProject.AddDestination("MyRoute")
ReplicationProject.Commit
'Start the project.
Wscript.Echo "Starting the project."
set ReplicationInstance = ReplicationProject.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 "In progress ..."
WScript.Sleep 2000
Loop
WScript.Echo "The end state of the replication was " & ReplicationInstance.State
'Release the objects.
set SourceReplicationServer = Nothing
set DestinationReplicationServer = Nothing
set ReplicationProject = Nothing
set SourceReplicationRoute = Nothing
set DestinationReplicationRoute = Nothing
set ReplicationInstance = Nothing
set ReplicationStatus = Nothing
Project Configuration File
The following XML code provides the contents of the BusinessDataProjectDefinition.xml file that is used by the example. To run the sample, you must replace CSharpSite with the name of a Commerce Server Web site that exists on the source computer.
<?xml version="1.0" encoding="utf-8" ?>
<BusinessDataProjectProperties xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" BusinessProjectName="">
<BusinessProjectHeader MajorVersion="1" MinorVersion="1" Revision="1" Build="1" />
<Source>CSharpSite</Source>
<Role>Source</Role>
<BusinessData BusinessDataID="b9055590-6826-45e6-b4b4-3f76a5bdedf4" BusinessDataTypeName="SiteTerms" />
</BusinessDataProjectProperties>