Tweet
Hallo
Ich habe versucht über ADSI für einen User ein Terminalprofilepath einzutragen.
Mit dem Windows 2003 Server wird die DLL tsuserex.dll mitgeliefert.
Nach Registrieren dieser DLL funktioniert diese VBS Script wunderbar.
<PRE>
Set objUser = GetObject("LDAP://cn=username,OU=Users, DC=domain,DC=net"
objUser.TerminalServicesProfilePath = "a"
objUser.SetInfo
</PRE>
Jetzt habe ich versucht das ganze in Delphi abzubilden. Dafür habe ich die Typenbibliothek importiert und versucht das gleiche wie oben zu machen.
Das Objekt objUser ist bei mir als IADsUser definiert und kommt aus der Typenbibliothek ActiveDs.dll. Und besitzt dadurch die Funktion SetInfo. In der Typenbibliothek tsuserex.dll ist das objekt IADsTSUserEx welches die Funktion TerminalServicesProfilePath besitzt.
Wie kann ich jetzt über objUser die Funktion TerminalServicesProfilePath und SetInfo benutzen?
Irgendwie habe ich mittlerweile soviel Sachen gelesen, so das ich den Wald vor lauter Bäumen nicht mehr sehe.
Ich habe versucht über ADSI für einen User ein Terminalprofilepath einzutragen.
Mit dem Windows 2003 Server wird die DLL tsuserex.dll mitgeliefert.
Nach Registrieren dieser DLL funktioniert diese VBS Script wunderbar.
<PRE>
Set objUser = GetObject("LDAP://cn=username,OU=Users, DC=domain,DC=net"
objUser.TerminalServicesProfilePath = "a"
objUser.SetInfo
</PRE>
Jetzt habe ich versucht das ganze in Delphi abzubilden. Dafür habe ich die Typenbibliothek importiert und versucht das gleiche wie oben zu machen.
Das Objekt objUser ist bei mir als IADsUser definiert und kommt aus der Typenbibliothek ActiveDs.dll. Und besitzt dadurch die Funktion SetInfo. In der Typenbibliothek tsuserex.dll ist das objekt IADsTSUserEx welches die Funktion TerminalServicesProfilePath besitzt.
Wie kann ich jetzt über objUser die Funktion TerminalServicesProfilePath und SetInfo benutzen?
Irgendwie habe ich mittlerweile soviel Sachen gelesen, so das ich den Wald vor lauter Bäumen nicht mehr sehe.