ADSI / TerminalServicesProfilePath

[greenmile]

Hallo,

ich sehe gerade den Wald vor lauter Bäumen nicht, vielleicht kann mir jemand auf die Sprünge helfen.
Also, ich erstelle einen AD User, setze einige Eigenschaften, das funktioniert alles (nicht von "Test" im Source irritieren lassen).
Nun möchte ich das TerminalServerProfil definieren und das funktioniert ... Nicht. succeeded gibt immer false zurück, "TSrvUsr" ist immer nil.

Code:

User:=ADsCont.Create('user','CN=Test');
..
User.Put('sAMAccountName','test');
User.Put('userPrincipalName','[e-mail]');
User.SetInfo;

  // Bis hierhin alles ok, User wird angelegt
  // succeeded ist im folgenden immer false
  User.GetInfo;
  If succeeded(User.QueryInterface(IID_IADsTSUserEx, TSrvUsr)) then begin
    TSrvUsr.TerminalServicesProfilePath   := uProfileDir;
    TSrvUsr.TerminalServicesHomeDirectory := uHomeDir;
    SetInfo;
  end;
End;

Ich nutze die TSUSEREXTLIB von hier: http://4coder.org/delphi-source-code...b_tlb.pas.html
Es ist eine Windows 2008 R2 Domäne.
Hat jemand eine Idee?