forum.lissyara.su

Код: Выделить всё

#!/usr/bin/perl

use Net::LDAP;

my $ADcontroller="d1.d.local";
my $ADDC="DC=d1,DC=d,DC=local";
my $ADGroupsSearchBase = "OU=org1, $ADDC";
my $ADUsersSearchBase = "OU=org1, $ADDC";

$ADuser="admin";
$ADpass="1111";

my $ADfieldTelephone="ipPhone";
my $ADfieldMember = "member";
my $ADfieldDescription = "description";

sub LDAPsearch
{
#    print @_;
    my($base, $searchString, $attrs) = @_;


     my $ret = $ldap->search ( base    => "$base",
                                scope   => "sub",
                                filter  => "$searchString",
                                attrs   =>  $attrs
                              );
                              
    LDAPerror("LDAPsearch", $ret)  && die if( $ret->code );
    return $ret;
}


$ldap = Net::LDAP->new ( $ADcontroller ) or die "$@";

$mesg = $ldap->bind ( dn=>"CN=$ADuser,CN=Users,$ADDC", password =>$ADpass);

my $ldapGroups = LDAPsearch(
		$ADGroupsSearchBase,
		"$ADfieldDescription=*",
		[ $ADfieldMember, $ADfieldDescription ]
)->as_struct;

my $hash = ();

while (my ($distinguishedName, $groupAttrs) = each (%$ldapGroups) )
{
    print "\nProccesing GROUP: [$distinguishedName]\n";

    my $attrMembers = $groupAttrs->{ $ADfieldMember } or next;
    my $desc = $groupAttrs->{ $ADfieldDescription } or next;
    my $groupNumber = "@$desc";
    
    print "MEMBERS: @$attrMembers\nDESC: $groupNumber (Count=$#$attrMembers+1)\n";
    
    foreach my $member  (@$attrMembers) {
    
	print "\nMEMBER:\t$member\n";

	my $ldapMember = LDAPsearch1(
	    $member,
	    "$ADfieldTelephone=*",
	    [ $ADfieldTelephone ]
	)->as_struct;

	while (my ($key, $val) = each (%$ldapMember) )
	{
	    print "\nProccesing MEMBERS: [$key]\n";
	    print "ipPhone = $val->{ $ipphone }\n";
	}
    }
}

 sub LDAPerror
 {
   my ($from, $mesg) = @_;
   print "Return code: ", $mesg->code;
   print "\tMessage: ", $mesg->error_name;
   print " :",          $mesg->error_text;
   print "MessageID: ", $mesg->mesg_id;
   print "\tDN: ", $mesg->dn;
 }