. . . # implementatie functie bind_object: zie reeks 6, oefening 4

my $cont=bind_object("OU=. . .,ou=labo,DC=iii,DC=hogent,DC=be"); # vul in
$cont->{filter}=["user"];                   # enkel users in de container

foreach (in $cont) {
   print "mail(" . $_->Get("cn") . ") is ";
   print $_->{mail} || "not set";
   print  "\n\tgeef nieuw mail-adres: ";
   chomp(my $nmail=<>);
   $nmail ? $_->Put("mail",$nmail)  # ook mogelijk om het ADSI-attribuut te gebruiken: 
                                    # $_->{EmailAddress} = $nmail
          : $_->PutEx(1,"mail",[]); # geen equivalent mogelijk met het ADSI-attribuut
   $_->SetInfo();
}