Active Directory

[Mironas]

Jak podłączyć się do usługi Active Directory?
Jak odczytać dane - np o zalogowanym użytkowniku?

Czy można to zrobić zdalnie?
Albo inaczej - czy pod WinXP da się napisać i testować aplikację która ma docelowo działać na Windows Server i korzystać z Active Directory?

Oczywiście chodzi mi o ogólne wskazówki a nie gotowe rozwiązanie. No chyba, że ktoś już ma gotowca do wglądu

[Mironas]

Może źle zadałem pytanie.

Mam potrzebę pozyskać z Active Directory (uruchomionym gdzieś na serwerze) informacje o użytkownikach (ich nazwy domenowe i nr telefonów). Oczywiście administrator da mi dostęp do AD i wskaże gdzie te informacje się znajdują.

Jednak nigdy nie korzystałem z AD i totalnie nie wiem od czego zacząć.
Czy XE ma jakieś komponenty które powinienem wykorzystać? A może są do tego jakieś biblioteki?
Jak zacząć ten temat?

[Cyfrowy Baron]

Ja też nigdy z tego nie korzystałem, a w Windows 7 to nawet nigdzie tego nie widzę. Poczytaj tutaj może czegoś się dowiesz:

http://msdn.microsoft.com/en-us/library ... 85%29.aspx
http://msdn.microsoft.com/en-us/library ... 85%29.aspx

A tutaj jest nawet jakiś przykładowy kod:

http://www.borlandtalk.com/adsi-with-bu ... 94543.html

[sebaskow]

Witam.

Również potrzebuję pwyższych informacji.

Może ktoś wie coś więcej, jakiś przykład ?

[Cyfrowy Baron]

Przykład masz tutaj: http://www.borlandtalk.com/adsi-with-bu ... 94543.html

[Mironas]

Ja potrzebowałem pobrać z AD listę nazw użytkowników i ich numery telefonów. Ostatecznie użyłem do tego komponentów bazodanowych ADO.
Poniżej masz testowy kod dla tego konkretnego przypadku. Oczywiście należy zmienić takie dane jak IP, firma czy username, a w AD użytkownicy muszą mieć przypisane numery telefonów.

A tutaj masz parę przydatnych linków z których korzystałem:
http://stackoverflow.com/questions/1018 ... ll-and-wmi
http://www.kouti.com/tables/userattributes.htm
http://msdn.microsoft.com/en-us/library/aa772316(v=vs.85).aspx
http://www.computerperformance.co.uk/Lo ... ectory.htm

KOD cpp:   �  UKRYJ  �

KOD cpp:   �  POKAŻ  �

// Pobierz liste uzytkownikow i ich nr telefonow
void __fastcall TForm1::ToolButton1Click(TObject *Sender)
{
  String ldap = "LDAP://192.168.1.100/DC=firma,DC=local";
  String user = "username@firma";
  String pass = "xxxxxxxx";

  Memo1->Clear();
  bool ok = PobierzListe(ldap, user, pass, Memo1->Lines);
  ShowMessage( (ok)?"OK":"ERR" );
}
//---------------------------------------------------------------------------
// Zapisuje liste nr telefonow i nazw domenowych uzytkownikow z ActiveDirectory
// Zwraca TRUE jesli operacja sie udala
bool TForm1::PobierzListe(String ldap, String user, String pass, TStrings* lista)
{
  String numer, nazwa;
  bool ok = false;

  // zapytanie sql
  String sql  = "SELECT userPrincipalName, telephoneNumber FROM '"+ldap+"'"
                " WHERE objectClass='user' AND objectCategory='Person'";
  // ConnectionString
  String conn = "Provider=ADsDSOObject;Encrypt Password=True;Mode=Read";
  if ( user.Length() )
    conn += ";User ID="+user;
  if ( pass.Length() )
    conn += ";Password="+pass;

  try
  {
    ADOQuery1->ConnectionString = conn;
    ADOQuery1->SQL->Text        = sql;
    ADOQuery1->Open();
    while ( !ADOQuery1->Eof )
    {
      numer = ADOQuery1->FieldByName("telephoneNumber")->AsString;
      nazwa = ADOQuery1->FieldByName("userPrincipalName")->AsString;
      if ( numer.Length() && nazwa.Length() )
        lista->Values[numer] = nazwa;
      ADOQuery1->Next();
    }
    ok = true;
  }
  catch (Exception &E)
  {
    ShowMessage(E.Message);
  }
  ADOQuery1->Close();
  return ok;
}
//---------------------------------------------------------------------------
 

[sebaskow]

Dziękuję bardzo.

Również połączyłem się z AD prze ADO.

W trochę inny sposób ale też działa.