proc GetVportConnectedToPort { vport } { # ::ixNet::OBJ-/availableHardware/chassis:"10.205.4.35"/card:1/port:1 set connectedTo [ixNet getAttribute $vport -connectedTo] set connectedTo [lrange [split $connectedTo /] 3 4] set card [lindex [split [lindex $connectedTo 0] :] end] set port [lindex [split [lindex $connectedTo 1] :] end] return $card/$port } es]} { puts "\nError: ModifyMldGroupRanges: The number of portList and mldGroupRanges are not the same" return 1 } for {set index 0} {$index < [llength $portList]} {incr index} { set port [lindex $portList $index] set vport [GetVportMapping $port] foreach mldHostNumber [ixNet getList $vport/protocols/mld host] { puts "\nindex=$index mldHostNumber= $mldHostNumber $vport" foreach mldHostGroupNumber [ixNet getList $mldHostNumber groupRange] { puts "\nModifyMldGroupRanges: $port mldGroupRanges=[lindex $mldGroupRanges $index]" ixNet setAttribute $mldHostGroupNumber -groupCount [lindex $mldGroupRanges $index] ixNet commit } } } return 0 }