Sub RemoveActionFromGroup(taskSequenceGroup, actionName)

	Dim i
  
	If taskSequenceGroup.SystemProperties_("__CLASS")<>"SMS_TaskSequence_Group" Then
		wscript.echo "Not a group"
		return
	End If
  
		Dim newArray
		Dim actionStep
	
		newArray = Array(taskSequenceGroup.Steps)
		ReDim newArray(UBound(taskSequenceGroup.Steps))
						 
		i=0
		for each  actionStep in taskSequenceGroup.Steps
			If actionStep.Name = actionName and _
			actionStep.SystemProperties_("__SUPERCLASS") = "SMS_TaskSequence_Action" Then
				 ReDim preserve newArray(UBound(newArray)-1) ' shrink the Array
			else
			 wscript.echo actionStep.Name
			 Set newArray(i)=actionStep ' copy it
			 i=i+1
			End If   

		 Next
			 
		 taskSequenceGroup.Steps=newArray
		 
 End Sub

public void RemoveActionFromGroup(
	IResultObject taskSequenceGroup, 
	string actionName)
{
	try
	{
		if (taskSequenceGroup["__CLASS"].StringValue != "SMS_TaskSequence_Group")
		{
			throw new System.InvalidOperationException("Not a group");
	}

		List<IResultObject> groupSteps = taskSequenceGroup.GetArrayItems("Steps");
		IResultObject actionFound = null;
		foreach (IResultObject actionStep in groupSteps)
		{
			if (actionStep["Name"].StringValue == actionName && actionStep["__SUPERCLASS"].StringValue == "SMS_TaskSequence_Action")
			{
				actionFound = actionStep;
				break;
		}
	}

		groupSteps.Remove(actionFound);
		taskSequenceGroup.SetArrayItems("Steps", groupSteps);
}
	catch (SmsException e)
	{
		Console.WriteLine("Failed to remove action: " + e.Message);
		throw;
}
}