Sub SWDAssignPackageToDistributionPoint(connection, existingPackageID, siteCode, serverName)

	Const wbemFlagReturnImmediately = 16
	Const wbemFlagForwardOnly = 32
	Dim distributionPoint
	Dim query
	Dim listOfResources
	Dim resource

	' Create distribution point object (this is not an actual distribution point).
	Set distributionPoint = connection.Get("SMS_DistributionPoint").SpawnInstance_

	' Associate the existing package with the new distribution point object.
	distributionPoint.PackageID = existingPackageID	 

	' This query selects a single distribution point based on the provided SiteCode and ServerName.
	query = "SELECT * FROM SMS_SystemResourceList WHERE RoleName='SMS Distribution Point' AND SiteCode='" & siteCode & "' AND ServerName='" & serverName & "'"

	Set listOfResources = connection.ExecQuery(query, , wbemFlagForwardOnly Or wbemFlagReturnImmediately)

	' The query returns a collection that needs to be enumerated (although we should only get one instance back).
	For Each resource In ListOfResources
		distributionPoint.ServerNALPath = Resource.NALPath
		distributionPoint.SiteCode = Resource.SiteCode	
	Next

	' Save the distribution point instance for the package.
	distributionPoint.Put_ 

	' Display notification text.
	Wscript.Echo "Assigned package: " & distributionPoint.PackageID 

End Sub

public void AssignPackageToDistributionPoint(WqlConnectionManager connection, string existingPackageID, string siteCode, string serverName)
{
	try
	{
		// Create the distribution point object (this is not an actual distribution point).
		IResultObject distributionPoint = connection.CreateInstance("SMS_DistributionPoint");

		// Associate the package with the new distribution point object. 
		distributionPoint["PackageID"].StringValue = existingPackageID;

		// This query selects a single distribution point based on the provided siteCode and serverName.
		string query = "SELECT * FROM SMS_SystemResourceList WHERE RoleName='SMS Distribution Point' AND SiteCode='" + siteCode + "' AND ServerName='" + serverName + "'";

		// 
		IResultObject listOfResources = connection.QueryProcessor.ExecuteQuery(query);
		foreach (IResultObject resource in listOfResources)
		{
			Console.WriteLine(resource["SiteCode"].StringValue);
			distributionPoint["ServerNALPath"].StringValue = resource["NALPath"].StringValue;
			distributionPoint["SiteCode"].StringValue = resource["SiteCode"].StringValue;
	}

		// Save the distribution point object and properties.
		distributionPoint.Put();

		// Output package ID of assigned package.
		Console.WriteLine("Assigned package: " + distributionPoint["PackageID"].StringValue);
}

	catch (SmsException ex)
	{
		Console.WriteLine("Failed to create package. Error: " + ex.Message);
		throw;
}
}