diff --git a/lib/FusionInventory/Agent/Task/NetDiscovery.pm b/lib/FusionInventory/Agent/Task/NetDiscovery.pm
index d42d39fb57..f94bf212b6 100644
--- a/lib/FusionInventory/Agent/Task/NetDiscovery.pm
+++ b/lib/FusionInventory/Agent/Task/NetDiscovery.pm
@@ -651,16 +651,10 @@ sub _discoverBySNMP {
     my ($self, $device, $ip, $credentials, $dico, $entity) = @_;
 
     $self->{logger}->debug("[ip] : SNMP discovery");
-    my $i = "4";
-    my $snmpv;
-    while ($i != 1) {
-        $i--;
-        $snmpv = $i;
-        if ($i == 2) {
-            $snmpv = "2c";
-        }
+
+    foreach my $version (qw(3 2c 1)) {
         foreach my $credential (@{$credentials}) {
-            next unless $credential->{VERSION} eq $snmpv;
+            next unless $credential->{VERSION} eq $version;
 
             my $session = FusionInventory::Agent::SNMP->new(
                 version      => $credential->{VERSION},