@ADSICloseSearchObject

Schließt eine Object-Verbindung zu einem AD-Server und gibt POTVAR zurück.

Beispiel: @ADSICloseSearchObject(ADSIHANDLE);

ADSIObj:=@ADSIOpenSearchObject("LDAP://mycompany.local/CN=Users,DC=mycompany,DC=local";"";"");

ADSISearchPrefs:=@ADSISearchPreferencesArrayInit();
Ret:=@ADSISearchPreferencesArrayAddScope(ADSISearchPrefs;2);
Ret:=@ADSISearchPreferencesArrayApply(ADSIObj;ADSISearchPrefs);
ADSISearchPrefs:=@ADSISearchPreferencesArrayDestroy(ADSISearchPrefs);

ADSISearchResult:=@ADSISearchObjectExecuteSearch(ADSIObj;"(&(objectCategory=person)(objectClass=user))");

RowCC:=0;
MaxRows:=10;
Loop:=@ADSISearchObjectGetFirstRow(ADSIObj;ADSISearchResult);
WHILE(Loop & (RowCC<MaxRows))
{
   @Increment(RowCC);
   @LogReport("############################################# "+@Right("0000"+@Text(RowCC);4)+" #############################################");
   More:=1;
   WHILE(More)
   {
      More:=@ADSISearchObjectGetColumnData(ADSIObj;ADSISearchResult;ColName;ColData);
      @LogReport("ColName: "+ColName+" ["+@GetDataType(ColData)+"]";3);
      @LogReport(ColData;3);
   }
   Loop:=@ADSISearchObjectGetNextRow(ADSIObj;ADSISearchResult);
}

Ret:=@ADSISearchObjectCloseSearch(ADSIObj;ADSISearchResult);

ADSIObj:=@ADSICloseSearchObject(ADSIObj);

Dieses Beispiel gibt für den DC "mycompany" die Daten von allen Spalten aller Benutzer-Objekte (Begrenzt auf MaxRows=11) im ApiLog aus.