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', password=>'password');

my $mesg = $ldap->search(port=>389, 
                         scope=>'subtree', 
                         pagesize=>1000,
                         filter=>"(&(objectclass=userProxy)(memberOf=cn=My Group,ou=groups,cn=sub,dc=compnay,dc=com))",
                         control=>[ $page ],
                         base=>"CN=sub,DC=company,DC=com");


##</code><code>##

my $strFilter = "(memberOf=cn=GDTNA APP Cognos,ou=groups,cn=esso,dc=bsci,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);