使用Net::LDAP添加LDAP OU

Question

使用Net::LDAP添加OU的正确语法是什么?我尝试了以下方法：

#!/usr/bin/perl -w

use 5.10.1;
use strict;

use Net::LDAP;
use Data::Dumper;

my $ldap = Net::LDAP->new("192.168.183.2") or die "$@";
my $mesg = $ldap->bind( "cn=admin,dc=lab,dc=net", password => 'xxx' );

$mesg = $ldap->add(
    "ou=Users,dc=lab,dc=net",
    attrs => [
        'ou'          => 'dc=Users',
        'objectClass' => [ 'top', 'organizationalUnit' ]
      ]
);

say $mesg->error;
say $mesg->code;

并得到以下错误：

value of naming attribute 'ou' is not present in entry 64

但是，使用ldapmodify命令行并使用下面的ldif是可行的：

dn: ou=Users,dc=lab,dc=net
changetype: add
objectclass: top
objectclass: organizationalUnit
ou: Users

Answer 1

'ou'          => 'dc=Users',

需要将此行更改为：

'ou'          => 'Users',