Respond

RE: Activi directory
frank dahlin (Jan 9 2007 3:15PM)

Might help if you used english...

But guess you are missing  ActiveDs_TLB in your "uses" section.
(And perhaps the actual  ActiveDs_TLB.pas file...)
Respond

<%If Session("sSecurityLevel") >= 2 Then%> Delete this Comment!<%End If%>

Respond

RE: One-level query to Active Directory
juliano freitas (Apr 11 2006 11:28AM)

Select distinctdistinguishedName From 'LDAP://DC=Company, DC=com' WHERE ObjectClass='OrganizationalUnit'
Respond

RE: RE: One-level query to Active Directory
juliano freitas (Apr 11 2006 11:29AM)

Opa. Foi malz. Ficou sem o espaço.

Select distinct distinguishedName From 'LDAP://DC=Company, DC=com' WHERE ObjectClass='OrganizationalUnit'
Respond

<%If Session("sSecurityLevel") >= 2 Then%> Delete this Comment!<%End If%>

Respond

RE: Create User
Mongol Kublai (Jun 30 2010 12:49PM)

Hi.
I am new to Delphi. My task is to create local windows user and assign it to a specific group. I have read whole article and I have tried the code as well. It creates local windows user but I am unable to assign a user group to that user.
I can can see the user in computer management tool.but user does not belong to any existing group .I need help. Thanks in advance
Respond

<%If Session("sSecurityLevel") >= 2 Then%> Delete this Comment!<%End If%>

Respond

RE: Active Directory - Organizational Unit
DCleminson (Feb 26 2005 9:29AM)

You just need to bind to the correct OU using your bind Query via LDAP.

procedure TForm1.btnCreateNewUserClick(Sender: TObject);
var adComp : IADsContainer;
var adUser : IADsUser;
begin
//Connect to Active Directory FCA Domain
adComp := GetObject('LDAP://OU=Users, DC=FCA, DC=ORG') as IADsContainer;
//This will bind you to the users container.

This should resolve your issue......
Messagedlg('Just got adComp-this works fine', mtInformation, [mbOK], 0);
adUser := adComp.Create('user', 'CN=Jay Adams') as IADsUser
Respond

<%If Session("sSecurityLevel") >= 2 Then%> Delete this Comment!<%End If%>

Respond

RE: You can also use CoGetObject
Vaclav Junek (Dec 3 2001 4:38PM)

This code don´t run at consloe aplication :o(
Form Application :o) All goods friends
Respond

RE: RE: You can also use CoGetObject
Wil Lierop (Jan 22 2006 2:39PM)

unit main;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function ValidateUserLogonAPI(const UserName : string;
                                              const Domain : string;
                                              const PassWord : string) : boolean;
var Retvar : boolean;
    LHandle : THandle;
begin
  Retvar := LogonUser(PChar(UserName),
                                PChar(Domain),PChar(PassWord),
                                LOGON32_LOGON_NETWORK,
                                LOGON32_PROVIDER_DEFAULT,
                                LHandle);
  if Retvar then CloseHandle(LHandle);
  Result := Retvar;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin

if ValidateUserLogonAPI(Edit1.Text, 'thuis', edit2.Text) then
  ShowMessage('you have logged on succesfully')
  else
  ShowMessage('failed to login');

end;

end.

//note: this code does give a false positive if a non existend user is checked
Respond

<%If Session("sSecurityLevel") >= 2 Then%> Delete this Comment!<%End If%>

Respond

RE: How can I know the current login user information ?
Daniel Hernandez (Oct 19 2000 3:05PM)

you can use this to do so:


var
  username: PChar;
  size: Dword;
begin
  if GetUserName(username, size) then
     // do something...

Respond

<%If Session("sSecurityLevel") >= 2 Then%> Delete this Comment!<%End If%>

Respond

DNS
Claudinei Rodrigues (Aug 16 2000 7:57AM)

I need create a DNS. Is it possible ? How ? I need a lot this information.

Thanks !
Respond

RE: DNS
Roberto Plácido Teixeira (Aug 20 2000 5:10PM)

If you have the ODBC engine installed, you can call the ODBC32.DLL API entry calls directly loading this DLL library in the memory. It's a way. I'll remember this case, and will send a further email to you. For this, send me an email to know yours, to "betobyte@igcom.br". I'll talk in portuguese, if you desire. Find for help files at your \WINDOWS directory containing "ODBC". Search for "ODBC"at www.microsoft.com. It's ease.
Respond

<%If Session("sSecurityLevel") >= 2 Then%> Delete this Comment!<%End If%>