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

347

24 мая 2007 года

319 / / 05.11.2005

написал прогу по сканированию сети и нахождению расшареных ресурсов... но вот есть вопрос: в сетке встречаются ресурсы ftp и ресурсы доступные для записи, как их определить для того чтоб поменять им логотип...
сканирую так:

Свернуть исходник

Код:

NetConToOpen.dwScope:=resource_globalnet;

NetConToOpen.dwType:=resourcetype_any;

NetConToOpen.lpLocalName:=nil;

NetConToOpen.lpRemoteName:=pchar('\\11.22.33.44'); //для примера тока один ip адрес

NetConToOpen.lpProvider:=nil;

WNetOpenEnum(resource_globalnet,resourcetype_any,resourceusage_connectable or resourceusage_container,@NetConToOpen,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.lpRemoteName));