دسترسي به فولدرهاي share شده بدون داشتن مجوز

[SReza1]

صورت مساله : فولدري در شبكه وجود دارد كه تنها براي كاربر a به اشتراك گذاشته شده است. ميخواهم از طريق نرم افزار با ارسال پارامترهاي نام كاربري و كلمه رمز كاربر a ، به اين فولدر دسترسي داشته باشم. با توجه به اينكه اين فولدر از طريق ويندوز غيرقابل استفاده براي ساير كاربران است

[SReza1]

const
RemoteName = '\\ntmemo01\C$';
UserName = 'yourusername';
Password = 'yourpassword';

function MapNetworkDrive: Boolean;
var
NetRes: TNetResource;
Res: DWord;
begin
Result := True;
FillChar(NetRes, SizeOf(TNetResource), 0);
NetRes.dwType := RESOURCETYPE_DISK;
NetRes.lpRemoteName := PChar(RemoteName);
NetRes.lpLocalName := 'H:'; // Whatever drive letter you want
Res := WNetAddConnection2(NetRes, PChar(Password), PChar(UserName), 0);
Result := (Res = NO_ERROR);
end;

[asgarkz]

با سلام
من يك فولدر در شبكه share كردم و در قسمت sharing اجازه دسترسي رو به كاربر user1 دادم. سپس از يك كامپيوتر ديگه و با يك كاربر غير از user1 وارد شده ام. حالا وقتي از تابع WNetAddConnection2 طبق روش پست قبلي استفاده مي كنم، جواب نمي ده. (در پارامترهاي تابع، كاربر user1 و رمزش رو هم مي زنم، ولي فايده اي نداره)
دوستان اگر راهنمايي كنن ممنون ميشم.

[asgarkz]

مثل اينكه كسي نيست به دادم برسه. :لبخندساده: