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);