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: [email protected] [mailto:perl- > [email protected]] On Behalf Of Gomes, Rich > Sent: Thursday, April 21, 2011 8:18 AM > To: [email protected] > 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 > [email protected] > To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs _______________________________________________ Perl-Win32-Admin mailing list [email protected] To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
