Sub AssociateComputer(connection, referenceComputerResourceId, destinationComputerResourceId)

	Dim stateMigrationClass
	Dim inParams
	Dim outParams
   
	' Get the state migration class.
	Set stateMigrationClass = connection.Get("SMS_StateMigration")

	' Set up the parameters.
	Set inParams = _
	stateMigrationClass.Methods_("AddAssociation").InParameters.SpawnInstance_
	inParams.SourceClientResourceID = referenceComputerResourceId
	inParams.RestoreClientResourceID = destinationComputerResourceId

	' Call the method.
	Set outParams = _
	connection.ExecMethod( "SMS_StateMigration", "AddAssociation", inParams)   
 
   End Sub

public void AssociateComputer(
	WqlConnectionManager connection, 
	int referenceComputerResourceId, 
	int destinationComputerResourceId)
{
	try
	{
		// Set up the reference and destination computer in parameters.
		Dictionary<string, object> inParams = new Dictionary<string, object>();
		inParams.Add("SourceClientResourceID", referenceComputerResourceId);
		inParams.Add("RestoreClientResourceID", destinationComputerResourceId);

		// Create the computer association.
	 connection.ExecuteMethod("SMS_StateMigration", "AddAssociation", inParams);
}
	catch (SmsException e)
	{
		Console.WriteLine("failed to make the association" + e.Message);
		throw;
}
}