proc ConfigIgmpGroupHlt { igmpParams } {
    # Usage Examples:
    #    set igmpHostToGroup(-mode) create
    #    set igmpHostToGroup(-session_handle) ::ixNet::OBJ-/vport:1/protocols/igmp/host:3
    #    set igmpHostToGroup(-group_pool_handle) ::ixNet::OBJ-/vport:1/protocols/igmp/host:3/group:3
    #    set igmpHostToGroupHandle($port1) [ConfigIgmpHostToGroupHlt ::igmpHostToGroup]

   upvar $igmpParams params

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

    puts "\nConfigIgmpGroupHlt: $paramList\n"
    set status [eval ::ixia::emulation_igmp_group_config $paramList]

    if {[keylget status status] != $::SUCCESS} {
	puts "ConfigIgmpGroupHlt Error:\n[keylget status log]"
	return 1
    }
    # ::ixNet::OBJ-/vport:1/protocols/igmp/host:3/group:1
    return [keylget status handle]
}