chavers | Voici un debut de reponse sous vb:
Code :
- Set objUser = GetObject("LDAP://cn=youngrob,ou=r&d,dc=fabrikam,dc=com" )
- WScript.Echo objUser.Name & " Terminal Services Profile Settings"
- WScript.Echo "--------------------------------------------------"
- WScript.Echo "Allow Logon: " & objUser.AllowLogon
- WScript.Echo "Terminal Services Home Directory: " & _
- objUser.TerminalServicesHomeDirectory
- WScript.Echo "Terminal Services Home Drive: " & _
- objUser.TerminalServicesHomeDrive
- WScript.Echo "Terminal Services Profile Path: " & _
- objUser.TerminalServicesProfilePath
- WScript.Echo "Enable Remote Control: " & objUser.EnableRemoteControl
- WScript.Echo "Broken Connection Action: " & objUser.BrokenConnectionAction
- WScript.Echo "Max Connection Time: " & objUser.MaxConnectionTime
- WScript.Echo "Max Disconnection Time: " & objUser.MaxDisconnectionTime
- WScript.Echo "Max Idle Time: " & objUser.MaxIdleTime
- WScript.Echo "Reconnection Action: " & objUser.ReconnectionAction
- WScript.Echo "Connect Client Drives At Logon: " & _
- objUser.ConnectClientDrivesAtLogon
- WScript.Echo "Connect Client Printers At Logon: " & _
- objUser.ConnectClientPrintersAtLogon
- WScript.Echo "Default To Main Printer: " & _
- objUser.DefaultToMainPrinter
- WScript.Echo "Terminal Services Initial Program: " & _
- objUser.TerminalServicesInitialProgram
- WScript.Echo "Terminal Services Work Directory: " & _
- objUser.TerminalServicesWorkDirectory
|
Cela fonctionne a patir de W2K3, pas avant. Je pense que la traduction sous Delphi ne doit pas etre tres dure.
Code :
- uses
- Windows, Messages, (...) ActiveDs_TLB, ActiveX,
- DB, ADODB, (...) SimpleDS, ActiveDs, ADGUIDConversions, ADVAPI32;
- (...)
- procedure TFormMain.ListBox1Click(Sender: TObject);
- var
- obj : IAds;
- result : string ;
- buffer:array[0..255]of widechar;
- begin
- cleanbox(Self );
- result := ListBox1.Items[ListBox1.Itemindex] ;
- adsuser := stringtowidechar(result, buffer, 255);
- ADsOpenObject( adsuser, AdsadmUser, Adsadmpwd, ADS_SECURE_AUTHENTICATION ,IAds, Obj);
- try
- LabNom.Text := obj.Get('SN');
- except
- end;
- (...)
|
Bonne chance. ---------------
http://www.chavers.org
|