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

Question

求助：统计局域网里的工作组数目 代码啊~~~

Answer 1

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;
dwDis