Sub CreateTaskSequencePackage (connection, taskSequence)
   
	Dim taskSequencePackage
	Dim packageClass
	Dim objInParams
	Dim objOutParams
	
	' Create the new package object.
	Set taskSequencePackage = connection.Get("SMS_TaskSequencePackage").SpawnInstance_

	' Populate the new package properties.
	taskSequencePackage.Name = "New task sequence package"
	taskSequencePackage.Description = "A new task sequence package description"

	' Get the parameters object.
	Set packageClass = connection.Get("SMS_TaskSequencePackage")
	 
	Set objInParams = packageClass.Methods_("SetSequence"). _
		inParameters.SpawnInstance_()

	' Add the input parameters.
	objInParams.TaskSequence =  taskSequence
	objInParams.TaskSequencePackage = taskSequencePackage

	' Add the sequence.
	 Set objOutParams = connection.ExecMethod("SMS_TaskSequencePackage", "SetSequence", objInParams)

End Sub

public IResultObject CreateTaskSequencePackage(
	WqlConnectionManager connection, 
	IResultObject taskSequence)
{
	try
	{
		Dictionary<string, object> inParams = new Dictionary<string, object>();

		// Create the new task sequence package.
		IResultObject taskSequencePackage = connection.CreateInstance("SMS_TaskSequencePackage");

		taskSequencePackage["Name"].StringValue = "New task sequence package";
		taskSequencePackage["Description"].StringValue = "A brand new task sequence package";
		taskSequencePackage["Category"].StringValue = "A custom category";

		// Note. Add other package properties as required.

		// Set up parameters that associate the task sequence with the package.
		inParams.Add("TaskSequence", taskSequence);
		inParams.Add("TaskSequencePackage", taskSequencePackage);

		// Associate the task sequence with the package. Note that a call to Put is not required.
		IResultObject result = connection.ExecuteMethod("SMS_TaskSequencePackage", "SetSequence", inParams);

		// The path to the new package.
		Console.WriteLine(result["SavedTaskSequencePackagePath"].StringValue);

		return taskSequencePackage;
}
	catch (SmsException e)
	{
		Console.WriteLine("Failed to create Task Sequence: " + e.Message);
		throw;
}
}