proc ConnectToIxiaNgpfHlt { connectParams } {
    # How to use from a script:
    #    set connect(-reset) 1
    #    set connect(-device) $ixiaChassisIp
    #    set connect(-port_list) $portList
    #    set connect(-ixnetwork_tcl_server) $ixNetworkTclServerIp
    #    set connect(-tcl_server) $ixiaChassisIp
    #    set connect(-username) $userName
    #    set connectStatus [ConnectToIxiaNgpfHlt ::connect]

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

    puts "ConnectToIxiaNgpfHlt: Resetting Ixia ports. Please wait 40 seconds ..."
    set connectStatus [eval ::ixiangpf::connect $paramList]

    if {[keylget connectStatus status] != $::SUCCESS} {
	puts "\nError: ConnectToIxiaNgpfHlt failed: $connectStatus\n"
	return 1
    } else {
	return $connectStatus
    }
}