Liste over alle brugere i et netværk ...

Så er jeg sq ikke sikker på du kan jeg har noget kode der kan på en NT. Det kan du da godt få ...

Jens B

WNetOpenEnum.zip?

Det virker fint i Win98 (Kan bare ikke se hvad listview'en til højre skal bruges til), jeg kan bare ikke tyde koden (en by i Rusland), noget mere præcist med en listbox, og kun med brugernavne ville være fint :)

Hvis det ikke er WNetOpenEnum.zip du har i tankerne er jeg nysgerrig alligevel :)

Jens Borrisholt -> Det har stadigvæk interrese :)

http://borrisholt.com/eksperten/NTUserList.zip

Jens B

Kigger på det

Fejl under programstart

Filen USERS.EXE er sammenkædet med en manglende eksportfil NETAPI32.DLL:NetServerEnumEx.

Det er fordi du ikke kører Win NT/2k/xp

Jens B

Er der ikke en anden løsning?

Hvordan virker f.eks. WNetOpenEnum.zip?
Den virker, men viser desværre også andre ting end netværksbrugernavne :(

WNetOpenEnum Scanner HELE netværket i gennem efter shares. Printere .. bibloteker etc ....


Det kan du jo blot begrænse ...

Jens B

Problem: Jeg forstår ikke koden :(

WNetOpenEnum kan give dig alle computere navne ... Ikke alle brugere ..

Jens B

Jeg kan nok godt bruge computernavnene i stedet, hvordan gør man?

Jeg skal bruge dem til et besked-program til mit lille netværk, basseret på UtilMinds MailSlot-komponent :)

sæt en memo på din form og så det her :

unit Unit1;

interface


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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


const InitialSize = $1;  // Any positive value is acceptable.

type
    TNetEnumThread = class(TThread)
        ChildNode: PChar;
        procedure AddChildNode;
        procedure Execute; override;
        procedure LoadNetNode(NodeName: PChar; NetNode: PNetResourceA);
    end;

procedure TNetEnumThread.Execute;
begin
    LoadNetNode(nil,nil);
end;

procedure TNetEnumThread.AddChildNode;
begin
//    TreeNode:=Form1.TV.Items.AddChild(TreeNode,StrPas(ChildNode));

  Form1.Memo1.Lines.Add(ChildNode);
end;

procedure TNetEnumThread.LoadNetNode(NodeName: PChar; NetNode: PNetResourceA);
var
  hEnum : THandle;
  Count,BufSize: DWORD;
  NR,Buf: PNetResourceA;
  R: Integer;
begin
    R:=WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY , 0, NetNode, hEnum);

    if R <> NO_ERROR then
      exit;

    BufSize:=InitialSize;
    GetMem(Buf,BufSize);

    try
        while True do
        begin
          Count:=$FFFFFFFF; // I wish to read ALL items
          R:=WNetEnumResource(hEnum,Count, Buf, BufSize);

          if R = ERROR_MORE_DATA then // Oops ! The InitialSize is too small !
          begin
            Count:=$FFFFFFFF; // I wish to read ALL items
            FreeMem(Buf);
            GetMem(Buf,BufSize);
            R:=WNetEnumResource(hEnum,Count, Buf, BufSize);
          end;

          if R = ERROR_NO_MORE_ITEMS then
            Break; // All items are processed

          if R <> NO_ERROR then
            Abort; // R is the error code. Process it!

          NR:=Buf;

          while Count > 0 do
          begin
            ChildNode:=NR.lpRemoteName;

            if nr.dwDisplayType = RESOURCEDISPLAYTYPE_SERVER then
              Synchronize(AddChildNode);

            LoadNetNode(ChildNode,NR);
            Inc(NR);
            Dec(Count);
          end;
        end;
    finally
        WNetCloseEnum(hEnum);
        FreeMem(Buf);
    end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  TNetEnumThread.Create(False);
end;

end.

Jens B

Jeg kigger på det, kan ikke garentere svar lige med det samme, men skal nok vende tilbage :)

Det kan bruges, tak for hjælpen :)