Script Crear muchos usuarios en samba 4 +LDAP

Imagen de jopeme
0 puntos

Hola.
Estaba usando el siguiente script sacado de algún foro en un Zentyal 3.0 basado en Ubuntu. Ahora he instalado Zentyal 3.2 y este script no me funciona. Muestro abajo el error que me muestra a ver si alguien sabe que tengo que cambiar.
#!/usr/bin/perl

use strict;
use warnings;

use EBox;
use EBox::UsersAndGroups::User;
use EBox::Global;

EBox::init();

my $users = EBox::Global->modInstance('users');

my @users;

open (my $USERS, 'users');

while (my $line = <$USERS>) {
chomp ($line);
my $user;

my ($username, $givenname, $surname, $password, $grupo) = split(',', $line);
$user->{'user'} = $username;
$user->{'givenname'} = $givenname;
$user->{'surname'} = $surname;
$user->{'password'} = $password;

my $u= EBox::UsersAndGroups::User->create($user, 0);
my $group = $users->group($grupo);
$group->addMember($u);
}

close ($USERS);

1;

El error es el siguiente:

Can't locate EBox/UsersAndGroups/User.pm in @INC (@INC contains: /etc/perl /usr/local/lib/perl/5.14.2 /usr/local/share/perl/5.14.2 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.14 /usr/share/perl/5.14 /usr/local/lib/site_perl .) at ImportUsersInBulk line 7.
BEGIN failed--compilation aborted at ImportUsersInBulk line 7.

Gracias.