список расшаренных ресурсов

← →
mifi (2002-10-18 00:33) [0]

Народ подскажите с помощью каких функций
можно получить список расшаренных ресурсов
удаленной машины ( адрес и имя машины известны)
буду рад любым исходникам .

← →
Игорь Шевченко (2002-10-18 09:57) [1]

Lan Manager API

← →
Dimka Maslov (2002-10-18 10:53) [2]

http://endimus.com/oldcontent/files/index_en.php?page=findcomp.htm

← →
Aleksey Pavlov (2002-10-18 14:05) [3]

Если удалённый компьютер имеет систему семейства Win2k или NT c SP4 и выше, то можно подключиться с помощью механизма DCOM к соответствующему пространству имён WMI и получить необходимые данные.

← →
Dr.UFO_51 (2002-10-18 16:49) [4]

Держи исходник простейшего сканера расш. ресурсов.

Если в чё обращяйся : CivUFO@mail.ru

//////////////////////////////////////////////////////
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ComCtrls, StdCtrls, ExtCtrls, Buttons;

type
TForm1 = class(TForm)
Button1: TBitBtn;
AddressEdit: TEdit;
Label3: TLabel;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
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("\\"+AddressEdit.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
exit;

for i := 1 to EntriesToGet do
Memo1.Lines.Add(string(ResourceBuffer[i].lpRemoteName));
end;
end;

end.

список расшаренных ресурсов Найти похожие ветки