이상준 wrote:

> 윈도95의 바탕화면에 있는 네트워크 환경처럼 LAN으로 연결된 컴퓨터들의

> 컴퓨터 이름을 읽어오는 방법을 알고 싶습니다.

> 그리고 읽어온 컴퓨터 이름을 가지고 서로 컴퓨터간의 통신이 가능한 방법도

> 부탁드립니다.



안녕하세요 김영대입니다



원도우즈 네트워크 환경의 컴퓨터 리스트를 구하는 내부

통신 프로토콜은 TCP/IP가 아닌 BetBEUI 를 사용합니다

하지만 컴퓨터간의 통신 프로그램을 직접 작성하셔야 한다면

TCP/IP 를 사용하는 것이 일반적이고 TCP/IP 에서는

IP 주소를 리스트 형태로 다 주는건 없고 하나하나 검사해야 합니다



아래 예제는 원도우즈 네트워크 환경의 컴퓨터 리스트를 구하는 예제입니다

그리고 제 홈페이지(myhome.shinbiro.com/~cozykyd) 의 자료실 4 에 보시면

"상대방 컴퓨터 이름으로 IP주소 구하기 (반대도 가능)" 자료가 있는데

이건 컴퓨터 이름으로 IP를 구하고 그 반대의 기능도 가능한 예제입니다

아래 예제와 자료실의 소스를 참고하시면 구현하실 수 있을겁니다

그럼 수고하세요



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.