var
            Computer : Array[1..500] of String[25];
            ComputerCount : Integer;
            procedure FindAllComputers(Workgroup: String);
            var
            EnumHandle : THandle;
            WorkgroupRS : TNetResource;
            Buf : Array[1..500] of TNetResource;
            BufSize : Integer;
            Entries : Integer;
            Result : Integer;
            begin
            ComputerCount := 0;
            Workgroup := Workgroup + #0;
            FillChar(WorkgroupRS, SizeOf(WorkgroupRS) , 0);
            With WorkgroupRS do begin
            dwScope := 2;
            dwType := 3;
            dwDisplayType := 1;
            dwUsage := 2;
            lpRemoteName := @Workgroup[1];
            end;
            WNetOpenEnum(RESOURCE_GLOBALNET, RESOURCETYPE_ANY, 0, @WorkgroupRS, EnumHandle );
            Repeat
            Entries := 1!;
            BufSize := SizeOf(Buf);
            Result := WNetEnumResource( EnumHandle, Entries,@Buf, BufSize );
            If (Result = NO_ERROR) and (Entries = 1) then begin
            Inc( ComputerCount);
            Computer[ ComputerCount ] := StrPas(Buf[1].lpRemoteName);
            end;
            Until (Entries <> 1) or (Result <> NO_ERROR);
            WNetCloseEnum( EnumHandle );
            end;
            { Find All Computers }