VBS in Delphi: Domäne auslesen mit RootDSE

[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