сканирование сети

[Sasuke-cun]

Сетевое приложение поиска доступных IP адресов (аналог стандартного
поиска компьютера в сети). Результат поиска - IP адрес компьютера и его
разделяемые ресурсы.
Скажите хотябы ссылочки где посотреть ну или хоть какую нить прогу

[betirsolt]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    adressedit: TEdit;
    Memo1: TMemo;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
hNetEnum: THandle;
NetContainerToOpen: NETRESOURCE;
ResourceBuffer: array[1..2000] of TNetResource;
i,ResourceBuf,entriesToGet: DWORD;
begin
NetContainerToOpen.dwScope:=RESOURCE_GLOBALNET;
NetContainerToOpen.dwType:=RESOURCETYPE_ANY;
NetContainerToOpen.lpLocalName:=nil;
NetContainerToOpen.lpRemoteName:= PChar('\\'+AdressEdit.Text);
NetContainerToOpen.lpProvider:=nil;
WNetOpenEnum (RESOURCE_GLOBALNET, RESOURCETYPE_ANY,
RESOURCEUSAGE_CONNECTABLE or REsOURCEUSAGE_CONTAINER,
@NetContainerToOpen, hNetEnum);
while TRUE do
begin
ResourceBuf:= sizeof(ResourceBuffer);
EntriesToGet:= 2000;
if (NO_ERROR <> WNetEnumResource(hNetEnum, EntriesToGet,
@ResourceBuffer,ResourceBuf)) then
begin
WNetCloseEnum(hNetEnum) ;
exit;
end;
for i:=1 to EntriesToGet do
Memo1.Lines.Add(string(ResourceBuffer[i].lpRemoteName));
end;
end;

end.

[Sasuke-cun]

А так чтоб он искал ip и отображал имена а не по введённому ip отображал имена