proc GetPortsAssignedToVports {} {
    # Dynamically get all the ports assigned to the vports
    # Returns a list of all the configured ports and a list of all the associated vports.
    # Returns: {{192.168.70.11 1 1} {192.168.70.11 2 1}} {::ixNet::OBJ-/vport:1 ::ixNet::OBJ-/vport:2}

    set chassisObj [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]
}