Sub ModifyPackageToUseBinaryDeltaReplication(connection, existingPackageID)

	' Define a constant with the hexadecimal value for AP_USE_BINARY_DELTA_REP. 
	Const AP_USE_BINARY_DELTA_REP = &H04000000

	' Get the specific advertisement instance to modify.	 Dim packageToModify
	Set packageToModify = connection.Get("SMS_Package.PackageID='" & existingPackageID & "'")

	' List the existing property values.
	Wscript.Echo " "
	Wscript.Echo "Values before change: "
	Wscript.Echo "--------------------- "
	Wscript.Echo "Package Name:   " & packageToModify.Name
	Wscript.Echo "Package Flags:  " & packageToModify.PkgFlags

	' Set the new property value.
	packageToModify.PkgFlags = packageToModify.PkgFlags OR AP_USE_BINARY_DELTA_REP

	' Save the advertisement.
	packageToModify.Put_ 

	' Output the new property values.
	Wscript.Echo " "
	Wscript.Echo "Values after change: "
	Wscript.Echo "--------------------- "
	Wscript.Echo "Package Name:   " & packageToModify.Name
	Wscript.Echo "Package Flags:  " & packageToModify.PkgFlags

End Sub

public void ModifyPackageToUseBinaryDeltaReplication(WqlConnectionManager connection, string existingPackageID)
{
	// Define a constant with the hexadecimal value for AP_USE_BINARY_DELTA_REP. 
	const Int32 AP_USE_BINARY_DELTA_REP = 0x04000000;

	try
	{
		// Get the specific package instance to modify. 
		IResultObject packageToModify = connection.GetInstance(@"SMS_Package.PackageID='" + existingPackageID + "'");

		// List the existing property values.
		Console.WriteLine();
		Console.WriteLine("Values before change:");
		Console.WriteLine("_____________________");
		Console.WriteLine("Package Name:  " + packageToModify["Name"].StringValue);
		Console.WriteLine("Package Flags: " + packageToModify["PkgFlags"].IntegerValue);

		// Modify the PkgFlags value to include the AP_USE_BINARY_DELTA_REP value.
		packageToModify["PkgFlags"].IntegerValue = packageToModify["PkgFlags"].IntegerValue | AP_USE_BINARY_DELTA_REP;

		// Save the package with the new value.
		packageToModify.Put();

		// Reload the package to verify the change.
		packageToModify.Get();

		// List the existing (modified) property values.
		Console.WriteLine();
		Console.WriteLine("Values after change:");
		Console.WriteLine("_____________________");
		Console.WriteLine("Package Name:  " + packageToModify["Name"].StringValue);
		Console.WriteLine("Package Flags: " + packageToModify["PkgFlags"].IntegerValue);
}
	catch (SmsException ex)
	{
		Console.WriteLine("Failed to modify package. Error: " + ex.Message);
		throw;
}
}