proc GetVportMapping { Port } { # Search all vport for the port number. # Port format = 1/1. Not 1/1/1. set vportList [ixNet getList [ixNet getRoot] vport] if {$vportList == ""} { return 0 } foreach vport $vportList { set connectedTo [ixNet getAttribute $vport -connectedTo] set chassis [lindex [split [lindex [split $connectedTo /] 2] :] end] set card [lindex [split [lindex [split $connectedTo /] 3] :] end] set portNum [lindex [split [lindex [split $connectedTo /] 4] :] end] set port $card/$portNum if {$port == $Port} { return $vport } } return 0 }