proc EnablePktLossDuration {} {
    puts "\nEnablePktLossDuration"
    catch {ixNet setAttribute [ixNet getRoot]traffic/statistics/packetLossDuration -enabled true} errMsg
    if {$errMsg != "::ixNet::OK"} {
	puts "\nError EnablePktLossDuration: $errMsg"
	return 1
    }
    ixNet commit
    return 0
}

bj [ixNet getList [ixNet getRoot]/availableHardware chassis]
    if {$chassisObj == ""} {
	puts "\nError: GetPortsAssignedToVports: No chassis is connected"
	return 1
    }
    set ixChassisIp [ixNet getAttribute $chassisObj -hostname]
    set portList {}
    set vportList [ixNet getList [ixNet getRoot] vport]

    if {$vportList == ""} {
	puts "\nError: GetPortsAssignedToVports: The configuration has no vport created."
	return 1
    }

    foreach vport $vportList {
	set port [GetVportPhyPort $vport noSlash]
	set cardId [lindex $port 0]
	set portId [lindex $port 1]
	if {$cardId == ""} {
	    puts "\nError: GetPortsAssignedToVports: No cardId is assigned to vport: $vport."
	    return 1
	}
	if {$portId == ""} {
	    puts "\nError: GetPortsAssignedToVports: No portId is assigned to cardId:$cardId"
	    return 1
	}
	lappend portList [list $ixChassisIp $cardId $portId]
    }
    return [list $portList $vportList]
}