LISTE DES ORDINATEURS SUR DOMAINE AVEC TNETUSERS

Commentaire de cantador le 12/03/2006 12:58:02

oui et je TriTri ture le source postit..jeune padawane !
..pour le domaine courant :
function GetCurrentProcessEnvVar(const VariableName: string): string;
var
  nSize: DWord;
begin
  nSize := 0;
  nSize := GetEnvironmentVariable(PChar(VariableName), nil, nSize);
  if nSize = 0 then
    result := ''
  else
  begin
    SetLength(result, nSize - 1);
    if GetEnvironmentVariable(PChar(VariableName), PChar(result),nSize)
      <> nSize - 1 then
      raise
        Exception.Create(SysErrorMessage(GetlastError))
  end;
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Showmessage(GetCurrentProcessEnvVar('USERDOMAIN'));
end;