네... 김영대님의 홈에서 건져왔습니다.



unit Unit1;



interface



uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;



type

TForm1 = class(TForm)

LB_UserList: TListBox;

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

ServerName: String;

function GetNetworkUserName: Boolean;

end;



PnetResourceArr = ^TNetResource;



var

Form1: TForm1;



implementation

{$R *.DFM}



function TForm1.GetNetworkUserName: Boolean;

var

NetResource: TNetResource;

Buf:Pointer;

Count, BufSize, Res: DWORD;

i: Integer;

lphEnum: THandle;

p: PnetResourceArr;

begin

GetNetworkUserName := False;

LB_UserList.Clear;

GetMem(Buf, 8192);

try

FillChar(NetResource, SizeOf(NetResource), 0);

NetResource.lpRemoteName := PChar(ServerName);

NetResource.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;

NetResource.dwUsage := RESOURCEUSAGE_CONTAINER;

NetResource.dwScope := RESOURCETYPE_DISK;

Res := WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_DISK, RESOURCEUSAGE_CONTAINER,

@NetResource,lphEnum);

if Res <> 0 then

System.Exit;

while true do

begin

Count := -1;

BufSize := 8192;

Res := WNetEnumResource(lphEnum, Count, Pointer(Buf), BufSize);

if Res = ERROR_NO_MORE_ITEMS then

System.Exit;

if (Res <> 0) then

System.Exit;

p := PNetResourceArr(Buf);

for i := 0 to Count - 1 do

begin

LB_UserList.Items.Add(p^.lpRemoteName + 2);

Inc(p);

end;

end;

Res := WNetCloseEnum(lphEnum);

If Res <> 0 then

raise Exception(Res);

finally

FreeMem(Buf);

GetNetworkUserName := True;

end;

end;



procedure TForm1.Button1Click(Sender: TObject);

begin

ServerName := '전산운영팀'; // 네트워크 환경의 작업그룹명

if GetNetworkUserName then

Showmessage('총 '+IntToStr(LB_UserList.Items.Count)+' 개의 개체가 있습니다')

else

Showmessage('정보를 얻지 못했습니다');

end;



end



마성수 wrote:

> 윈도우즈 바탕화면에 네트워크환경이라는 아이콘을 선택하면

> 그안에 컴퓨터이름들이 나오는데

> 이 네트워크상의 컴퓨터 이름들을 나타나게 할려면 어떻게 해야

> 하는지요..힌트좀 주세요