proc ConnectToIxiaHlt { connectParams } {
    # How to use this 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 [ConnectToIxiaHlt ::connect]

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

    puts "ConnectToIxiaHlt: Please wait 40 seconds ..."
    set connectStatus [eval ::ixia::connect $paramList]

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