Sub RecurseTaskSequenceSteps(taskSequence, indent)

	Dim osdStep 
	Dim i
	
	' Indent each new group.
	for each osdStep in taskSequence.Steps

		for i=0 to indent
			WScript.StdOut.Write " "
		next
	
		If osdStep.SystemProperties_("__CLASS")="SMS_TaskSequence_Group" Then
			wscript.StdOut.Write "Group: " 
		End If
	
		WScript.Echo osdStep.Name

		' Recurse into each group found.
		If osdStep.SystemProperties_("__CLASS")="SMS_TaskSequence_Group" Then
			If IsNull(osdStep.Steps) Then
				Wscript.Echo "No steps"
			Else
				Call RecurseTaskSequenceSteps (osdStep, indent+3)
			End If
		End If
	 Next   
End Sub	

public void RecurseTaskSequenceSteps(
	IResultObject taskSequence,
	int indent)
{
	try
	{
		// The array of SMS_TaskSequence_Steps.
		List<IResultObject> steps = taskSequence.GetArrayItems("Steps");

		foreach (IResultObject ro in steps)
		{
			for (int i = 0; i < indent; i++)
			{
				Console.Write(" ");
		}

			if (ro["__CLASS"].StringValue == "SMS_TaskSequence_Group")
			{
				Console.Write("Group: ");
		}

			Console.WriteLine(ro["Name"].StringValue);

			// Child groups that are found. Use recursion to view them.
			if (ro["__CLASS"].StringValue == "SMS_TaskSequence_Group")
			{
				this.RecurseTaskSequenceSteps(ro, indent + 3);
		}
	}
}
	catch (SmsException e)
	{
		Console.WriteLine("Failed To enumerate task sequence items: " + e.Message);
		throw;
}
}