Controleur de domaine

Marsh Posté le 11-08-2003 à 18:53:14

Je dévellope actuellement un intranet pour une entreprise, et pour ne pas avoir à gérer des utilisateurs et des mots de passe, je souhaiterai faire en sorte que Windows s'en chage pour moi. L'idée est que l'utilisateur en arrivant sur l'intranet tape son login NT et son mot de passe, et ensuite l'intranet fait une requête auprés du contrôleur de domaine pour savoir si oui ou non cet utilisateur est connu.
C'est pour ça que j'ai besoin de vous, comment intéroger un contrôleur de domaine ?
De préférence en Delphi, mais si vous avez des pistes en C, je prends aussi...

Merci

Reply

Marsh Posté le 11-08-2003 à 18:53:14

Reply

Marsh Posté le 22-08-2003 à 16:38:03

J'utilise un code de ce genre pour récupérer la liste des utilisateurs définis sur un poste ou sur un serveur :

Code :

type
USER_INFO_0 = record
usri0_name: PWideChar;
end;
...
implementation
...
function NetUserEnum(Server: PWideChar; Level: DWORD; Filter: DWORD; var Bufptr: Pointer; PrefMaxLen: DWORD; var EntriesRead: DWORD; var TotalEntries: DWORD; Resume_Handle: PDWORD): Integer; stdcall; external 'netapi32.dll';
procedure NetApiBufferFree(Buffer : Pointer); stdcall; external 'netapi32.dll';
procedure TMainForm.GetListeUtilisateur;
var
FIni: TIniFile;
bufptr: ^USER_INFO_0;
server: WideString;
sts: integer;
maxlen: DWORD;
entread, totalent, rhandle: DWORD;
i: integer;
begin
//.Lecture du fichier INI.
FIni := TIniFile.Create(ExtractFilePath(Application.ExeName) + 'TransfertHMY-Client.ini');
if FIni.ValueExists('Client', 'NomServeur') then
server := FIni.ReadString('Client', 'NomServeur', '')
else
server := ''; //chaine vide si enum users poste local
//sinon : donner le nom du serveur : \\SEVEUR
FIni.Free;
maxlen := $FFFFFFFF;
entread := 0;
totalent := 0;
rhandle := 0;
bufptr := nil;
repeat
sts := NetUserEnum(PWideChar(Server), 0, 2, Pointer(bufptr), maxlen, entread, totalent, PDWORD(rhandle));
FormDestinataire.ListBoxContacts.Items.Clear;
if bufptr <> nil then
begin
for i := 0 to entread - 1 do
begin
FormDestinataire.ListBoxContacts.Items.Add(AnsiUpperCase(WideCharToString(bufptr^.usri0_name)));
// FormDestinataire.ListBoxContacts.Items.Add(AnsiUpperCase(WideCharToString(bufptr^.usri2_full_name)));
inc(bufptr);
end;
end;
until (sts <> 0) or (bufptr = nil) or (entread = totalent);
if bufptr <> nil then
NetApiBufferFree(bufptr);
end;

Si ca peut t'aider ...

Reply

Controleur de domaine

Sujets relatifs:

Leave a Replay