Description: procedure FindAllComputers(Workgroup: string)
var
EnumHandle: THandle
WorkgroupRS: TNetResource
Buf: array[1..500] of TNetResource
BufSize: Integer
Entries: Integer
Result: Integer
To Search:
- [WorkGroup] - This is a computer name and computer acc
File list (Check if you may need any files):
FindAllComputers.pas
Download