diff --git a/htdocs/public/adherents/priv_edit.php b/htdocs/public/adherents/priv_edit.php
index bf91f35206c..5ed5ca4b6e2 100644
--- a/htdocs/public/adherents/priv_edit.php
+++ b/htdocs/public/adherents/priv_edit.php
@@ -208,6 +208,7 @@ if (isset($_SERVER["REMOTE_USER"])){
   print "<input type=\"hidden\" name=\"action\" value=\"update\">";
   print "<input type=\"hidden\" name=\"rowid\" value=\"$adh->id\">";
   print "<input type=\"hidden\" name=\"statut\" value=\"".$adh->statut."\">";
+  print "<input type=\"hidden\" name=\"login\" value=\"".$adh->login."\">";
   //  print "<input type=\"hidden\" name=\"public\" value=\"".$adh->public."\">";
 
   $htmls = new Form($db);
diff --git a/scripts/adherents/adh2passwd.pl b/scripts/adherents/adh2passwd.pl
new file mode 100755
index 00000000000..1d3c6e5660c
--- /dev/null
+++ b/scripts/adherents/adh2passwd.pl
@@ -0,0 +1,67 @@
+#!/usr/bin/perl
+
+# Copyright (C) 2003 Jean-Louis BERGAMO <jlb@j1b.org>
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2 of the License, or
+# (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+# GNU General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+# ce script prend l'intergralite des adherents valide et les mets dans
+# une mailing-liste.  ce script est utilie si l'on souhaite avoir une
+# mailing-liste avec uniquement les adherents valides.
+
+use DBI;
+use strict;
+# get the command line option
+use Getopt::Long;
+
+# command line option hash table
+my %optctl=();
+# get command line options
+GetOptions(\%optctl,"help!","host=s","db=s","user=s","pass=s","type=s","cotis!");
+if (defined $optctl{'help'}){
+  &usage();
+}
+my $host=$optctl{'host'}||'localhost';
+my $dbname=$optctl{'db'}||'dolibarr';
+my $user=$optctl{'user'}||'dolibarr';
+my $pass=$optctl{'pass'}||'';
+my $type=$optctl{'type'}||'mysql';
+#my $ml=$optctl{'ml'}||&usage();
+my @adh=();
+my @ml_adh=();
+
+my $dbh = DBI->connect("dbi:$type:dbname=$dbname;host=$host",$user,$pass) || die $DBI::errstr ;
+
+my $sql = 'SELECT login,pass FROM llx_adherent WHERE statut=1';
+
+if (defined $optctl{'cotis'}){
+  $sql.=" AND datefin > now()";
+}
+
+my $sth = $dbh->prepare("$sql") || die $dbh->errstr ;
+$sth->execute;
+
+# get login,pass of each adherents
+while (my @row = $sth->fetchrow_array ){
+    print "$row[0]:$row[1]\n";
+}
+
+$dbh->disconnect();
+
+sub usage{
+  print "$0 [--help] [--host] [--db] [--user] [--pass] [--cotis]\n";
+  print " cotis : select only adherents with cotisations up-to-date\n";
+  print "\n";
+  exit (1);
+}