--- Ocsinventory/Agent/Backend/OS/AIX/Networks.pm.orig  2012-08-22 14:32:17.000000000 +0200
+++ Ocsinventory/Agent/Backend/OS/AIX/Networks.pm       2012-08-22 15:16:55.000000000 +0200
@@ -13,6 +13,27 @@
   my %info;  
 
   my $ifname;
+  my $pifname;
+  foreach (`lsdev`) {
+    if (/^ent(\d+).*VLAN$/) {
+      $ifname = "en".$1;
+      $pifname = "ent".$1;
+      $info{$ifname}{type} = "VLAN";
+      $info{$ifname}{status} = "Down";
+      foreach (`entstat -d $ifname`) {
+        if (/Hardware Address:\s+(.+)$/) {
+          $info{$ifname}{macaddr}="$1";
+          last;
+        }
+      }
+      foreach (`lsattr -El $pifname`) {
+        if (/^vlan_tag_id\s+(\d+)/) {
+          $info{$ifname}{type}.="$1";
+        }
+      }
+    }
+  }
+