proc GetTrafficItemNames {} {
    # Return a list of the configured Traffic Item names

    set trafficItemNames {}
    set trafficItemObjList [ixNet getList [ixNet getRoot]/traffic trafficItem]
    foreach trafficItemObj $trafficItemObjList {
	set trafficItemName [ixNet getAttribute $trafficItemObj -name]
	lappend trafficItemNames $trafficItemName
    }
    return $trafficItemNames
}

	puts "\nError: ModifyMldGroupRanges: The number of portList and mldGroupRanges are not the same"
	return 1
    }

    for {set index 0} {$index < [llength $portList]} {incr index} {
	set port [lindex $portList $index]
	set vport [GetVportMapping $port]

	foreach mldHostNumber [ixNet getList $vport/protocols/mld host] {
	    puts "\nindex=$index mldHostNumber= $mldHostNumber  $vport"
	    foreach mldHostGroupNumber [ixNet getList $mldHostNumber groupRange] {
		puts "\nModifyMldGroupRanges: $port mldGroupRanges=[lindex $mldGroupRanges $index]"
		ixNet setAttribute $mldHostGroupNumber -groupCount [lindex $mldGroupRanges $index]
		ixNet commit		
	    }
	}
    }
    return 0
}