proc RemoveDeviceGroupNgpf { deviceGroupName } { foreach topology [ixNet getList [ixNet getRoot] topology] { foreach deviceGroup [ixNet getList $topology deviceGroup] { set currentDgName [ixNet getAttribute $deviceGroup -name] if {[regexp -nocase $deviceGroupName $currentDgName]} { puts "\nRemoveDeviceGroup: $deviceGroup : $currentDgName" ixNet remove $deviceGroup ixNet commit } } } }