now the windows:my $page = Net::LDAP::Control::Paged->new( size => 10000 ); my $ldap = Net::LDAP->new("ad.host:389") or die "$@"; $ldap->bind('cn=user,ou=serviceAccts,cn=sub,dc=company,dc=com', passwo +rd=>'password'); my $mesg = $ldap->search(port=>389, scope=>'subtree', pagesize=>1000, filter=>"(&(objectclass=userProxy)(memberOf=c +n=My Group,ou=groups,cn=sub,dc=compnay,dc=com))", control=>[ $page ], base=>"CN=sub,DC=company,DC=com");
Thanks awesome ones!my $strFilter = "(memberOf=cn=GDTNA APP Cognos,ou=groups,cn=esso,dc=bs +ci,dc=com);"; my $strAttrs = "cn,distinguishedName;"; my $strScope = "subtree"; my $objConn = Win32::OLE->CreateObject("ADODB.Connection"); $objConn->{Provider} = "ADsDSOObject"; $objConn->Properties->{'User ID'} = 'cn=user,ou=serviceAccts,cn=sub, +dc=company,dc=com'; $objConn->Properties->{'Password'} = 'password'; $objConn->Open; my $commObj = Win32::OLE->new('ADODB.Command'); $commObj->{ActiveConnection} = $objConn; $commObj->Properties->{'Page Size'} = 1000; $query = $strBase . $strFilter . $strAttrs . $strScope; $commObj->{CommandText} = $query; my $objRS = $commObj->Execute($query);
In reply to ldap query only returning 1k lines by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |