统计局域网里的工作组数目

最新推荐文章于 2025-09-12 18:08:49 发布

weixin_34292402

最新推荐文章于 2025-09-12 18:08:49 发布

阅读量110

点赞数

CC 4.0 BY-SA版权

文章标签： java

原文链接：http://www.cnblogs.com/myamanda/articles/1523175.html

var
WorkgroupCount : Integer;
Workgroup: Array[1..500] of String[25];

Procedure FindAllWorkgroups;
Var
EnumHandle: THandle;
EntireNetwork: TNetResource;
Buf: Array[1..500] of TNetResource;
BufSize: Integer; // 或DWORD;
Entries: Integer; // 或DWORD;

begin
FillChar(EntireNetwork, SizeOf(EntireNetwork) , 0);
With EntireNetwork do begin
dwScope := 2;
dwDisplayType := 6;
dwUsage := 2;
end;

WNetOpenEnum( RESOURCE_GLOBALNET,
RESOURCETYPE_ANY,
0,
@EntireNetwork,
EnumHandle );

WorkgroupCount := 0;
Repeat
Entries := 1;
BufSize := SizeOf(Buf);

WNetEnumResource( EnumHandle,
Entries,
@Buf,
BufSize );
If Entries = 1 then begin
Inc( WorkgroupCount );
Workgroup[ WorkgroupCount ] := StrPas(Buf[1].lpRemoteName);
end;
Until (Entries <> 1);

WNetCloseEnum( EnumHandle );
end;

转载于:https://www.cnblogs.com/myamanda/articles/1523175.html