Missing network computer list I have used for years this function (Delphi XE..Alexandria) in order to get network computer list. // Workgroup = My workgroup = Ufficio function FindAllComputers(Workgroup: string; WithIP: Boolean): TStringList; var EnumHandle : THandle; WorkgroupRS : TNetResource; Buf : Array[1..500] of TNetResource; BufSize : cardinal; Entries : cardinal; Res : Integer; Computers : Tstringlist; Limit, I: Integer; Error : Integer; begin Limit := 0; Workgroup := Workgroup + #0;...