Alle Arbeitsgruppen, alle Rechner und dann alle freigaben?

[Mario]

Hier ist Dein Angriffspunkt:

Delphi-Quellcode:

procedure AddComputerToList(Value: TNetResource); 
begin 
   strRemoteName := Value.lpRemoteName; 
   if Value.dwDisplayType <> RESOURCEDISPLAYTYPE_SERVER THEN Exit; 
   ListBox.Items.Add(strRemoteName);
end;

ListBox.Items.Add(strRemoteName);

Dann brauchst Du nur noch die Funktion aufrufen:
RechnerInWG(NIL)