如何得到win2000或WINNT网上邻居的邻近计算机的所有计算机名?

Question

获得网上邻居列表的程序
程序如下：
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 1

上面的代码，你应该早有了，我就不贴了。
哈哈我发现邻近计算机，他们是跟你在同一个工作组中。你先获得你自己在那个工作组中，
然后把global_net该一下。只要不楼上老兄代码该一下就可以了。

Answer 2

楼上的代码不行的，最少我在win2000下试过就是不行。

Answer 3

补充一下………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;你这样写，是想枚举出与这台计算机同一个工作组的所有计算机吧？但结果是由于你这个TNetResouce结点在网络上找不到（remotename没有指定，provider也没有指定），所以只能枚举出display type 为network的结点，也就是网络的根部。如果要枚举出所有的计算机，应该先枚举所有的network.然后枚举network下的domain，然后再枚举domain下的server才对，server才是局域网上的计算机。（以上内容已在win2000下实测证明，那种写法应该是错误的）我自己写了一个类去实现类似的功能，不过由于完全按照面向对象的要求去写，而且在枚举网络资源时用到了多线程，代码比较长，如果你想看明白也要一段时间，你要不要？我写的这个东西有两个特点：
1）多线程枚举，当网络情况复杂，计算机多的时候不会影响用户的其它操作。
2）由于是封装成一个类，使用简单。如果你不想要，下面有两个例子，对你应该有用，是转贴自别人的代码。关键是WNetOpenEnum和WNetEnumResource两个WNet API的使用，详细自己看看MSDN，有非常详细的介绍。还有，当局域网中有不可访问的 NT 域，或者存在出了错误的域，WNetOpenEnum会返回 ERROR_BAD_NETPATH 或者 ERROR_REM_NOT_LIST 错误。procedure GetDomainList(TV:TTreeView); 
var 
a : Integer; 
ErrCode : Integer; 
NetRes : Array[0..1023] of TNetResource; 
EnumHandle : THandle; 
EnumEntries : DWord; BufferSize : DWord; 
s : string; 
itm : TTreeNode; 
begin 
{ Start here } 
try 
With NetRes[0] do begin 
dwScope :=RESOURCE_GLOBALNET; 
dwType :=RESOURCETYPE_ANY; 
dwDisplayType :=RESOURCEDISPLAYTYPE_DOMAIN; 
dwUsage :=RESOURCEUSAGE_CONTAINER; 
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_CONTAINER, 
@NetRes[0], 
EnumHandle 
); 
EnumEntries:=1024; 
BufferSize:=SizeOf(NetRes); 
ErrCode:=WNetEnumResource( 
EnumHandle, 
EnumEntries, 
@NetRes[0], 
BufferSize 
); 
IF ErrCode=No_Error then with TV do try 
a:=0; 
Items.BeginUpDate; 
Items.Clear; Itm:=Items.Add(TV.Selected,string(NetRes[0].lpProvider)); 
Itm.ImageIndex:=0; 
Itm.SelectedIndex:=0; { get domains } 
While a How can I get the contents of the Neighborhood? The following unit defines a component, TNetworkBrowser, which can be used 
to enumerate all resources on the network in a hierarchical tree. The 
actual browsing takes a long time (try opening "Entire Network" in Windows 
Explorer). If you set the Scope property to nsContext, you'll see the list of machines from the "Network Neighborhood" window. 
下面的一个单元定义了一个组件. TNetworkBrowser, 可以枚举hierachical树上所有 
的网络资源. 实际上浏览是要花费很长时间的,这您可以通过在WINDOWS资源管理器 
中打开"整个网络" 来比较一下. 如果你设置SCOPE属性 为nsContext , 你就可以看到 
和网络邻居中一样的机器列表 Yorai Aminov 
El-On Software Systems unit NetBrwsr; interface uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs; type 
TNetScope = (nsConnected, nsGlobal, nsRemembered, nsContext); TNetResourceType = (nrAny, nrDisk, nrPrint); 
TNetDisplay = (ndDomain, ndGeneric, ndServer, ndShare, ndFile, ndGroup, 
ndNetwork, ndRoot, ndShareAdmin, ndDirectory, ndTree, ndNDSContainer); 
TNetUsage = set of (nuConnectable, nuContainer); TNetworkItems = class; TNetworkItem = class 
private 
FScope: TNetScope; 
FResourceType: TNetResourceType; 
FDisplay: TNetDisplay; 
FUsage: TNetUsage; 
FLocalName: string; 
FRemoteName: string; 
FComment: string; 
FProvider: string; 
FSubItems: TNetworkItems; 
public 
constructor Create; 
destructor Destroy; override; 
property Scope: TNetScope read FScope; property ResourceType: TNetResourceType read FResourceType; 
property Display: TNetDisplay read FDisplay; 
property Usage: TNetUsage read FUsage; 
property LocalName: string read FLocalName; 
property RemoteName: string read FRemoteName; 
property Comment: string read FComment; 
property Provider: string read FProvider; 
property SubItems: TNetworkItems read FSubItems; 
end; TNetworkItems = class 
private 
FList: TList; 
procedure SetItem(Index: Integer; Value: TNetworkItem); 
function GetItem(Index: Integer): TNetworkItem; function GetCount: Integer; 
public 
constructor Create; 
destructor Destroy; override; 
procedure Clear; 
procedure Add(Item: TNetworkItem); 
procedure Delete(Index: Integer); 
property Items[Index: Integer]: TNetworkItem read GetItem write 
SetItem; default; 
property Count: Integer read GetCount; 
end; TNetworkBrowser = class(TComponent) 
private 
FItems: TNetworkItems; 
FScope: TNetScope; 
FResourceType: TNetResourceType; 
FUsage: TNetUsage; 
FActive: Boolean; 
procedure Refresh; 
procedure SetActive(Value: Boolean); 
procedure SetScope(Value: TNetScope); procedure SetResourceType(Value: TNetResourceType); 
procedure SetUsage(Value: TNetUsage); 
procedure EnumerateNet(NetItems: TNetworkItems; lpnr: PNetResource); 
protected 
public 
constructor Create(AOwner: TComponent); override; 
destructor Destroy; override; 
procedure Open; 
procedure Close; 
property Items: TNetworkItems read FItems; 
published 
property Scope: TNetScope read FScope write SetScope default nsGlobal; 
property ResourceType: TNetResourceType read FResourceType 
write SetResourceType default nrAny; 
property Usage: TNetUsage read FUsage write SetUsage default []; property Active: Boolean read FActive write SetActive default False; 
end; implementation type 
PNetResourceArray = ^TNetResourceArray; 
TNetResourceArray = array[0..0] of TNetResource; { TNetworkItem } constructor TNetworkItem.Create; 
begin 
inherited; 
FSubItems := TNetworkItems.Create; 
end; destructor TNetworkItem.Destroy; 
begin 
if FSubItems <> nil then 
FSubItems.Free; 
inherited; 
end; { TNetworkItems } constructor TNetworkItems.Create; 
begin 
inherited; 
FList := TList.Create; 
end; destructor TNetworkItems.Destroy; begin 
Clear; 
if FList <> nil then 
FList.Free; 
inherited; 
end; procedure TNetworkItems.SetItem(Index: Integer; Value: TNetworkItem); 
begin 
if (FList.Items[Index] <> nil) and (FList.Items[Index] <> Value) then 
TNetworkItem(FList.Items[Index]).Free; 
FList.Items[Index] := Value; 
end; function TNetworkItems.GetItem(Index: Integer): TNetworkItem; 
begin 
Result := TNetworkItem(FList.Items[Index]); 
end; procedure TNetworkItems.Clear; 
begin 
while Count > 0 do 
Delete(0); 
end; procedure TNetworkItems.Add(Item: TNetworkItem); 
begin FList.Add(Item); 
end; procedure TNetworkItems.Delete(Index: Integer); 
begin 
if FList.Items[Index] <> nil then 
TNetworkItem(FList.Items[Index]).Free; 
FList.Delete(Index); 
end; function TNetworkItems.GetCount: Integer; 
begin 
if FList <> nil then 
Result := FList.Count 
else 
Result := 0; 
end; { TNetworkBrowser } constructor TNetworkBrowser.Create(AOwner: TComponent); 
begin 
inherited Create(AOwner); 
FItems := TNetworkItems.Create; 
FScope := nsGlobal; 
FResourceType := nrAny; 
FUsage := []; 
end; destructor TNetworkBrowser.Destroy; 
begin 
if FItems <> nil then 
FItems.Free; inherited; 
end; procedure TNetworkBrowser.EnumerateNet(NetItems: TNetworkItems; lpnr: 
PNetResource); 
var 
dwResult, dwResultEnum: Integer; 
hEnum: THandle; 
cbBuffer, cEntries, i: Integer; 
nrArray: PNetResourceArray; 
NewItem: TNetworkItem; 
dwScope, dwType, dwUsage: Integer; 
begin 
cbBuffer := 16384; 
cEntries := $FFFFFFFF; case FScope of 
nsConnected: dwScope := RESOURCE_CONNECTED; 
nsGlobal: dwScope := RESOURCE_GLOBALNET; 
nsRemembered: dwScope := RESOURCE_REMEMBERED; nsContext: dwScope := RESOURCE_CONTEXT; 
else 
dwScope := RESOURCE_GLOBALNET; 
end; 
case FResourceType of 
nrAny: dwType := RESOURCETYPE_ANY; 
nrDisk: dwType := RESOURCETYPE_DISK; 
nrPrint: dwType := RESOURCETYPE_PRINT; 
else 
dwType := RESOURCETYPE_ANY; 
end; 
dwUsage := 0; 
if nuConnectable in FUsage then 
dwUsage := dwUsage or RESOURCEUSAGE_CONNECTABLE; 
if nuContainer in FUsage then 
dwUsage := dwUsage or RESOURCEUSAGE_CONTAINER; dwResult := WNetOpenEnum(dwScope, dwType, dwUsage, lpnr, hEnum); if dwResult <> NO_ERROR then Exit; GetMem(nrArray, cbBuffer); 
repeat 
dwResultEnum := WNetEnumResource(hEnum, cEntries, nrArray, cbBuffer); 
if dwResultEnum = NO_ERROR then 
for i := 0 to cEntries-1 do 
begin 
NewItem := TNetworkItem.Create; 
case nrArray[i].dwScope of 
RESOURCE_CONNECTED: NewItem.FScope := nsConnected; 
RESOURCE_GLOBALNET: NewItem.FScope := nsGlobal; 
RESOURCE_REMEMBERED: NewItem.FScope := nsRemembered; 
RESOURCE_CONTEXT: NewItem.FScope := nsContext; else 
NewItem.FScope := nsGlobal; 
end; 
case nrArray[i].dwType of 
RESOURCETYPE_ANY: NewItem.FResourceType := nrAny; 
RESOURCETYPE_DISK: NewItem.FResourceType := nrDisk; 
RESOURCETYPE_PRINT: NewItem.FResourceType := nrPrint; 
else 
NewItem.FResourceType := nrAny; 
end; 
case nrArray[i].dwDisplayType of 
RESOURCEDISPLAYTYPE_GENERIC: NewItem.FDisplay := ndGeneric; 
RESOURCEDISPLAYTYPE_DOMAIN: NewItem.FDisplay := ndDomain; RESOURCEDISPLAYTYPE_SERVER: NewItem.FDisplay := ndServer; 
RESOURCEDISPLAYTYPE_SHARE: NewItem.FDisplay := ndShare; 
RESOURCEDISPLAYTYPE_FILE: NewItem.FDisplay := ndFile; 
RESOURCEDISPLAYTYPE_GROUP: NewItem.FDisplay := ndGroup; 
RESOURCEDISPLAYTYPE_NETWORK: NewItem.FDisplay := ndNetwork; 
RESOURCEDISPLAYTYPE_ROOT: NewItem.FDisplay := ndRoot; 
RESOURCEDISPLAYTYPE_SHAREADMIN: NewItem.FDisplay := ndShareAdmin; 
RESOURCEDISPLAYTYPE_DIRECTORY: NewItem.FDisplay := 
ndDirectory; 
RESOURCEDISPLAYTYPE_TREE: NewItem.FDisplay := ndTree; 
RESOURCEDISPLAYTYPE_NDSCONTAINER: NewItem.FDisplay := 
ndNDSContainer; 
else 
NewItem.FDisplay := ndGeneric; 
end; 
NewItem.FUsage := []; 
if nrArray[i].dwUsage and RESOURCEUSAGE_CONNECTABLE <> 0 then 
Include(NewItem.FUsage, nuConnectable); 
if nrArray[i].dwUsage and RESOURCEUSAGE_CONTAINER <> 0 then Include(NewItem.FUsage, nuContainer); 
NewItem.FLocalName := StrPas(nrArray[i].lpLocalName); 
NewItem.FRemoteName := StrPas(nrArray[i].lpRemoteName); 
NewItem.FComment := StrPas(nrArray[i].lpComment); 
NewItem.FProvider := StrPas(nrArray[i].lpProvider); 
NetItems.Add(NewItem); 
// if container, call recursively 
if (nuContainer in NewItem.FUsage) and (FScope <> nsContext) then 
EnumerateNet(NewItem.FSubItems, @nrArray[i]) end; 
until dwResultEnum = ERROR_NO_MORE_ITEMS; FreeMem(nrArray); 
WNetCloseEnum(hEnum); 
end; procedure TNetworkBrowser.Refresh; 
begin 
FItems.Clear; 
if FActive then 
EnumerateNet(FItems, nil); 
end; procedure TNetworkBrowser.SetActive(Value: Boolean); 
begin 
if Value <> FActive then 
begin 
FActive := Value; 
Refresh; 
end; 
end; procedure TNetworkBrowser.SetScope(Value: TNetScope); 
begin 
if Value <> FScope then 
begin 
FScope := Value; 
Refresh; 
end; 
end; 
procedure TNetworkBrowser.SetResourceType(Value: TNetResourceType); 
begin 
if Value <> FResourceType then 
begin 
FResourceType := Value; 
Refresh; 
end; 
end; procedure TNetworkBrowser.SetUsage(Value: TNetUsage); 
begin 
if Value <> FUsage then 
begin 
FUsage := Value; 
Refresh; 
end; 
end; procedure TNetworkBrowser.Open; 
begin 
Active := True; 
end; procedure TNetworkBrowser.Close; 
begin 
Active := False; 
end; end. 

Answer 4

这段代码调试不过，可否将程序发至信箱[email protected]
谢谢！

Answer 5

www.torry.net 上有列机器，用户名，共享资源....的控件。

Answer 6

回来copy代码，才发现回贴，例子已经发出，你自己地邮相收吧。

Answer 7

你给我的EMAIL地址有问题，我发不出呢。

Answer 8

那就发到这里吧
[email protected]