Dim x as IADs
On Error GoTo Cleanup

Set x = GetObject("LDAP://CN=Administrator,CN=Users,DC=Fabrikam,DC=com")
'
' Update values in the cache.
'
x.Put "sn", "Smith"
x.Put "givenName", "Jeff"
x.Put "street", "1 Tanka Place"
x.Put "l", "Sammamish"
x.Put "st", "Washington"
'
' Commit changes to the directory.
x.SetInfo

Cleanup:
   If (Err.Number<>0) Then
      MsgBox("An error has occurred. " & Err.Number)
   End If
   Set x = Nothing

function AddUserToGroupInternal(UserName, GroupName : string;
                          var err, warn : string
                          ) : boolean;
var
  FullUserName : string;
  Group : IADsGroup;
  User  : IADsUser;
begin

  Group := GetObject('LDAP://' + GroupName) as IADsGroup;

  FullUserName := 'LDAP://cn=' + UserName + ',' + GetDC;
  User  := GetObject(FullUserName) as IADsUser;
  if Group.IsMember(FullUserName) then
  begin
    warn := 'Пользователь ' + UserName + ' [' + FullUserName + '] уже подключён к группе ' + GroupName;
    exit;
  end;
  Group.Add( User.ADsPath );
  //Group.SetInfo; комментируй-не комментируй  - пользователь добавляется
  result := true;
end;