Discussion :

[jean tof]

Bonjour

Je cherche a récupérer de mon AD tous les comptes ayant un numéro de téléphone de renseigné. 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
Tout sélectionner
    my $ldap = Net::LDAP->new('orme', port => 389, version => 3,raw => qr/(?i:^jpegPhoto|;binary)/) or die "erreur LDAP: Impossible de contacter l'annuaire ($@)";
    my $mesg = $ldap->bind ( "cn=maj annuaire,cn=Users,DC=##,dc=fr", password => "###" );
    $mesg->code && die $mesg->error;
 
    my $attrs = [ 'givenName','sn','telephoneNumber','department','company' ];
    $mesg = $ldap->search(
        base   => 'DC=sva-jeanroze,dc=fr',
        filter => 'telephoneNumber=*' ,
        attrs  => $attrs
    );

Le problème, c'est que je récupère tous. Même les comptes AD désactivés. Quel filtre faut-il utiliser pour ne récupérer que les comptes actifs ?

Merci d'avance

[djibril]

Le second bit de userAccountControl sera 1 si le compte est désactivé.

source : http://www.espace-groupware.com/squi...ap/doc004.html

4.4.2 Activation de l'utilisateur : userAccountControl
Le champ userAccountControl regroupe plusieurs propriétés sur le compte utilisateur. C'est un champ de bits d'une taille de 4 octets, soit 32 bits, c'est-à-dire 32 drapeaux (flags), pouvant indiquer autant de propriétes.

En pratique, dans la documentation officielle de Microsoft, il n'y a pas d'explications pour tous ces bits, et les celles fournies sont très sommaires, j'ai donc tatonné pour comprendre à quoi correspondent certains de ces bits.

En voici la description (le bit 0 est celui de poids faible, c'est-à-dire le plus à droite) :
Bit n° Signification Valeur Accepté
0 Script 1 non
1 Compte désactivé 2 oui
3 Homedir required 8 oui
4 Lockout (verrouillage) 16 non
5 Password not required 32 oui
6 Password can't change 64 non
7 Enregistrer le mot de passe en utilisant un cryptage réversible 128 oui
8 Temp duplicate account 256 non
9 Normal account 512 oui
11 Interdomain trust account 2048 non
12 Workstation trust account 4096 oui
13 Server trust account 8192 non
16 Le mot de passe n'expire jamais 65536 oui
17 MNS logon account 131072 oui
18 Une carte à puce est nécessaire pour ouvrir une session interactive 262144 oui
19 Le compte est approuvé pour la délégation 524288 oui
20 Le compte est sensible et ne peut pas être délégué 1048576 oui
21 Utiliser les types de cryptage DES pour ce compte 2097152 oui
22 La pré-authentification Kerberos n'est pas nécessaire 4194304 oui

La valeur que l'on donne à userAccountControl est la somme des valeurs associées aux propriétés que l'on veut activer pour le compte (ces valeurs sont en fait 2 à la puissance le numéro du bit).

Ainsi, si on veut par exemple un compte normal désactivé, on met la valeur 514 (512 + 2), alors que si on veut qu'il soit activé, on met juste 512.

Si on veut que le mot de passe n'expire jamais, il suffit de rajouter 65536.

Si on veut activer l'utilisateur sans avoir défini de mot de passe, on met 512 + 32 = 544 ...

Attention, on ne peut pas (Active Directory l'empêche) cumuler "normal account" et "workstation trust account" par exemple, vu qu'un compte ne peut être que dans l'une de ces 2 catégories à la fois. En pratique, pour un normal account, l'utilisateur sera automatiquement membre du groupe Utilisa. du domaine, alors que pour un workstation trust account, il sera membre du groupe Ordinateurs du domaine.

Une fois que l'on a créé l'utilisateur, défini son mot de passe, et activé son compte, on peut enfin l'utiliser pour se connecter...

N'ayant pas le temps de plus chercher, tu nous mettras ta solution trouvée ?

[jean tof]

Ok, merci pour le tuyau

Pour ceux que cela intéresse, voici ma fonction permettant de savoir si un compte est actif ou désactivé

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub compteActif
{
  my $valeur = shift; #valeur du userAccountControl 
  my $valBin = uc(sprintf("%b\n", $valeur));
  my @tab = split(//, $valBin);
  if ($tab[-3] eq '0') #compte actif
  {
    return 1;
  }
  else #sinon compte désactivé
  {
    return 0;
  }
}

[djibril]

, n'oublie pas de mettre ton post en résolu si c'est ok.

[djibril]

pourquoi $tab[-3] ? Peux tu nous donner un exemple de sortie de $valBin

Merci