proc CreateIgmpGroupHlt { igmpGroupParams } {
    # Usage Examples:
    #    set igmpGroup(-mode) create
    #    set igmpGroup(-num_groups) 10
    #    set igmpGroup(-ip_addr_start) 235.0.0.1
    #    set igmpGroup(-ip_addr_step) 0.0.0.1
    #    set igmpGroup(-ip_prefix_len) 24
    #    set igmpGroupHandle($port1) [ConfigIgmpGroupHlt ::igmpGroup]

    upvar $igmpGroupParams params

    foreach {properties values} [array get params *] {
	set property [lindex [split $properties ,] end]
	append paramList "$property $values "
    }

    puts "\nCreateIgmpGroupHlt: $paramList\n"
    set status [eval ::ixia::emulation_multicast_group_config $paramList]

    if {[keylget status status] != $::SUCCESS} {
	puts "Create Error: igmp emulation group config:\n[keylget status log]"
	return 1
    }
    # group2
    return [keylget status handle]
}