I have had issues in the past where searching with a "null base" inside AD yielded errors, but putting one level of OU in the base made it work.
(the first time I encountered that, it was with AD integration with apache). Maybe adjusting the base will yield different results.
Thanks,
Jok
> -----Original Message-----> From: perl...@listserv.ActiveState.com [mailto:perl-> win3...@listserv.ActiveState.com] On Behalf Of Gomes, Rich> Sent: Thursday, April 21, 2011 8:18 AM> To: perl...@listserv.ActiveState.com> Subject: AD Page Size help> > I know this has been talked about a lot but I cannot seem to get my> script to work.> I am trying to not hit the LDAP search limit but cannot seem to get the> PageSize line correct> > > Any thoughts?> > > _______________________________________________________________________> ______> > my $strDomainDN = "DC=mydomain,DC=com";> use Win32::OLE qw(in);> > > $Win32::OLE::Warn = 3;> my $strBase = "<LDAP://" . $strDomainDN . ">;";> > > my $strFilter = "(&(objectclass=user)(objectcategory=person));";> my $strAttrs = "name;";> my $strAttrs = "distinguishedName;";> my $strScope = "subtree";> > my $objConn = Win32::OLE->CreateObject("ADODB.Connection");> $objConn->{Provider} = "ADsDSOObject";> $objConn->Open;> > $objConn->{Properties}->{"Page Size"} = 100;> > my $objRS = $objConn->Execute($strBase . $strFilter . $strAttrs .> $strScope);> $objRS->MoveFirst;> while (not $objRS->EOF) {> print $objRS->Fields(0)->Value,"\n";> $objRS->MoveNext;> }> > _______________________________________________________________________> ________> > > > _______________________________________________> Perl-Win32-Admin mailing list> Perl...@listserv.ActiveState.com> To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
_______________________________________________
Perl-Win32-Admin mailing list
Perl...@listserv.ActiveState.com
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs