VBS in Delphi: Domäne auslesen mit RootDSE

[Piro]

Hi,

es ist bestimmt ganz einfach aber ich komm nicht drauf.

Folgenden VBS-Code würde ich gerne in Delphi verwenden.

Code:

Set objRootDSE = GetObject("LDAP://rootDSE")
set strDomainName = objRootDSE.Get("defaultNamingContext")
...

Ich komme einfach nicht weiter und weiß nicht wie ich es umsetzen soll. Derzeit schreibe ich es manuell. Wie z.B.: strDomainName := 'DC=xxx,DC=xxx,DC=xxx'.

Ich hoffe mir kann einer helfen und vielen Dank im voraus.

Gruss, Sven

[marabu]

Hallo Sven,

ich kann es momentan nicht testen, aber so oder ähnlich würde ich es angehen:

Delphi-Quellcode:

uses
  ActiveDS,
  AdsHlp,
  ActiveX;

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  ads: IADs;
  dnc: String;
begin
  // OleInitialize(nil); // nicht vergessen
  ads := GetObject('LDAP://RootDSE') as IADs;
  dnc := VarToStr(ads.Get('defaultNamingContext'));
  ShowMessage(dnc);
end;

Grüße vom marabu

[Piro]

Hi,

danke für deine Antwort. Die USES "ActiveDS und AdsHlp" bekomme ich nicht eingebunden. Kannst du mir die *.pas und *.dcu zur Verfügung stellen?

[marabu]

Die Unit ACTIVEDS.PAS habe ich mit TLIBIMP -Fe- aus der Datei %WINDIR%\ActiveDS.TLB erzeugt. Die Unit ADSHLP.PAS wird von AgniSoft zur Verfügung gestellt.

marabu