Sub RemoveAction (connection, taskSequence, actionName)

	Dim i
	Dim newArray
	Dim actionStep

	If taskSequence.SystemProperties_("__CLASS")<>"SMS_TaskSequence" Then
		wscript.echo "Not a task sequence"
		Exit Sub
	End If
		 
	if IsNull(taskSequence.Steps) Then
		Wscript.Echo "No steps"
		Exit Sub
	End If
	
	' Create an array to hold copied steps.
	newArray = Array(taskSequence.Steps)
	ReDim newArray(UBound(taskSequence.Steps))
		 
	' Copy the steps into the array and remove the matching action.
	i=0
	for each  actionStep in taskSequence.Steps
		If actionStep.Name = actionName and _
		actionStep.SystemProperties_("__SUPERCLASS") = "SMS_TaskSequence_Action" Then
			 ReDim preserve newArray(UBound(newArray)-1) ' shrink the Array
		else
		 Set newArray(i)=actionStep ' copy it
		 i=i+1
		End If   
	 Next

	 ' Assign new array back to the task sequence.
	 taskSequence.Steps=newArray		 
  
End Sub

public void RemoveAction(
	IResultObject taskSequence, 
	string actionName)
{
	try
	{
		// Get a list of steps.
		List<IResultObject> actionSteps = taskSequence.GetArrayItems("Steps");

		// Find the action to be deleted.
		foreach (IResultObject actionStep in actionSteps)
		{
			if (actionStep["Name"].StringValue == actionName && actionStep["__SUPERCLASS"].StringValue == "SMS_TaskSequence_Action")
			{
				// Delete the action.
				actionSteps.Remove(actionStep);
				break;
		}
	}

		// Update the task sequence.
		taskSequence.SetArrayItems("Steps", actionSteps);
}
	catch (Exception e)
	{
		Console.WriteLine("Failed to remove action: " + e.Message);
		throw;
}
}