Discussion :

[jean tof]

Bonjour

Je cherche a créer des comptes AD avec un script Perl. Voici ce que j'ai fait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
use strict;
use Net::LDAP;
 
CreateNewUser();
 
sub CreateNewUser 
{
 
	my $ldap = Net::LDAP->new( "orme.sva-jeanroze.fr", port => 389, version => 3,raw => qr/(?i:^jpegPhoto|;binary)/);
	my $mesg = $ldap->bind ( "cn=administrateur,cn=Users,DC=sva-jeanroze,dc=fr", password => "xxx" );
 
 
 my $result = $ldap->add( 'cn=Telephonie,dc=sva-jeanroze,dc=fr',
                        attr => [
                          'cn'   => 'essai',
                          'sn'   => 'essai',
						              'ipPhone' => '0030',
                          'unicodePwd'    => 'xxx',
                          'objectclass' => ['top', 'person','organizationalPerson','inetOrgPerson' ]]
                      );
 
 $result->code && warn "failed to add entry: ", $result->error ;
 
}

Et en retour, j'ai

failed to add entry: 00002071: UpdErr: DSID-030502F7, problem 6005 (ENTRY_EXISTS), data 0
e 522.

Pourtant, je n'ai pas de compte "essai" dans l'AD (ENTRY_EXISTS).

Avez-vous une idée sur l'erreur ?

Merci

[MonsieurPouet]

Salut,

je connais pas très bien LDAP avec Perl, mais pense peut-être a supprimer cet utilisateur si il exsite même si il n'est pas là :p.
Peut-être que ton script voit un "essai". Sinon tu as pensé au niveau de droit ? Ton script à les droits de créer un utilisateur ?

[elendilm]

Salut,

Si je comprends bien, tu appeles un script (linux je présume.) Si ce postulat est faux ... le reste de mon post aussi


autant que je me rappele, il n'est pas possible d'écrire sur le pseudo ldap d'AD .

Les mot de passe, par exemple, ne sont pas gérés sur le LDAP, d'où les problèmes d'authentification linux/windows (on est obligé de passer par des tickets kerberos).


Regardes plutôt du coté de powershell pour la création des comptes, et débrouilles toi pour pour scripter depuis l'extérieur.