很容易的，怎样到网上邻居中的计算机名呀

Question

很容易的，怎样到网上邻居中的计算机名呀，能给你段代码吗谢谢

Answer 1

http://expert.csdn.net/Expert/topic/1656/1656068.xml?temp=.908581里面有

Answer 2

获得网上邻居列表的程序
程序如下：
var
i : Integer;
ErrCode : Integer;
NetRes : Array[0..1023] of TNetResource;
EnumHandle : Thandle;
EnumEntries : Dword;
BufferSize : Dword;
ComputerIP,ComputerName:String;
begin
//try
With NetRes[0] do begin
  dwScope :=RESOURCE_GLOBALNET;
  dwType :=RESOURCETYPE_ANY;
  dwDisplayType :=RESOURCEDISPLAYTYPE_DOMAIN;
  dwUsage :=RESOURCEUSAGE_CONNECTABLE;
  lpLocalName :=NIL;
  lpRemoteName :=NIL;
  lpComment :=NIL;
  lpProvider :=NIL;
  end;
{ get net root }
ErrCode:=WNetOpenEnum(
RESOURCE_GLOBALNET,
RESOURCETYPE_ANY,
RESOURCEUSAGE_CONTAINER,
@NetRes[0],
EnumHandle
);If ErrCode=NO_ERROR then begin
  EnumEntries:=1;
  BufferSize:=SizeOf(NetRes);
  ErrCode:=WNetEnumResource(EnumHandle,EnumEntries,@NetRes[0],BufferSize);
  WNetCloseEnum(EnumHandle);
  ErrCode:=WNetOpenEnum(
  RESOURCE_GLOBALNET,
  RESOURCETYPE_ANY,
  RESOURCEUSAGE_CONNECTABLE,
  @NetRes[0],
  EnumHandle
  );
  EnumEntries:=1024;
  BufferSize:=SizeOf(NetRes);
  ErrCode:=WNetEnumResource(
  EnumHandle,
  EnumEntries,
  @NetRes,
  BufferSize
  );  for i:=0 to 1023 do
      if NetRes[i].lpRemoteName='' then Exit
      else begin
        ComputerName:=Copy(NetRes[i].lpRemoteName,3,Length(NetRes[i].lpRemoteName)-2);
        ComputerIP:=GetIP(ComputerName);
        ShowMessage('计算机名' + NetRes[i].lpRemoteName + chr(13)
        + '计算机说明:' + NetRes[i].lpComment + chr(13)
        + 'IP地址:' + ComputerIP);
  end;
  end;

Answer 3

这段代码是不是只在98下运行正常呀。我在w2k下面只能得到'Microsoft Windows 网络'不能得到域里面的？？？