# Kod uaktywnia szukanie ze stronicowaniem

# ------ KONFIGURACJA SKRYPTU ------
my $strBase    =  "<LDAP://<BazowaNazwaWyrniajca>>;";
my $strFilter  = "<Filtr>;";
my $strAttrs   = "<ListaAtrybutw>;";
my $strScope   = "<Zakres>";
# ------ KONIEC KONFIGURACJI ---------
use Win32::OLE;
$Win32::OLE::Warn = 3;
my $objConn = Win32::OLE->CreateObject("ADODB.Connection");
$objConn->{Provider} = "ADsDSOObject";
$objConn->Open;
my $objComm = Win32::OLE->CreateObject("ADODB.Command");
$objComm->{ActiveConnection} = $objConn;
$objComm->Properties->{"Page Size"} = 1000;
$objComm->{CommandText} = $strBase . $strFilter . $strAttrs . $strScope;
my $objRS = $objComm->Execute;
$objRS->MoveFirst;
while (not $objRS->EOF) {
    print $objRS->Fields(0)->Value,"\n";
    $objRS->MoveNext;
}
