#!/fellow/monks.pl

The following piece of code works in being able to return computers defined in my Active Directory, however it only returns the first 1000, which is a little useless. Any idea how I can modify this sucker to show me all entries? Thanks!

use Win32::OLE 'in';
$ADServer = "MyADserver";

$ADsPath = 'LDAP://'.$ADServer.'/OU=MyOU,OU=Organizations,DC=Company,D
+C=com';

# get ADO object, set the provider, open the connection
$c = Win32::OLE->new("ADODB.Connection");
$c->{Provider} = "ADsDSOObject";
$c->Open("ADSI Provider");

die Win32::OLE->LastError() if Win32::OLE->LastError(  );

#This doesnt appear to work....
$c->{Properties}->{"Size Limit"} = 100000;
$c->{Properties}->{"Page size"} = 100000;

# prepare and then execute the query


$rs = $c->Execute("<$ADsPath>;(objectClass=Computer);Name;SubTree");
die Win32::OLE->LastError() if Win32::OLE->LastError(  );

until ($rs->EOF){
    print $rs->Fields(0)->{Value},"\n";
    $cnt++;
    $rs->MoveNext;
}

$rs->Close;
$c->Close;

print "\n";
print "Total : $cnt\n";
[download]

|\/| _. _ _  ._
|  |(_|_>_>\/| |
           /