[Perl] Zentyal LDAP Passwords change
This is a small script I have done today in Zentyal that allows you to change the passwords of all users in LDAP. It creates a file /tmp/usuarios.csv with the users and their new passwords
05 | use EBox::UsersAndGroups; |
07 | use EBox::Util::Random; |
10 | my $salida ="/tmp/users.csv"; |
11 | open (OUT,">$out") || die "ERROR: Can't create or write to file $out\n"; |
12 | my $users = EBox::Global->modInstance('users'); |
13 | my @userlist = @{$users->users() } ; |
14 | foreach my $user (@userlist) { |
16 | $password = EBox::Util::Random::generate(8); |
17 | print OUT $user->name()." ". $password."\n"; |
18 | $user->changePassword($password,0) |