Network Erişimi

[erayertug]

User1 ve User2 aynı domain kullanıcıları olsun

User1 in link'e erişim var , user2 nin yok.

User2 bağlıyken, user1 in kullanıcı adı ve şifresini içeren bir exe ile, link'e dosya kopyalama yapabilir mi ? (Yani, user2 nin link'e erişimini sadece exe ile yapmasını sağlamak istiyorum)

link \\server1\dir\
domain WORKGROUP
user1 usera, pass1 passa
user2 userb, pass2 passb

Teşekkürler.

Eray ERTUĞ

[mkysoft]

bunun yerine makinaya ftp server kursan. daha kolay olur gibi geldi. sonuçta kullanıcı eliyle yazınca erişim hakkı olur. exe'nin içinde kullanıcı adını bulmakta kolay. tabi o kadar anlayan varsa.

[yazicih]

ben de işlemi şu şekilde yapmak istiyorum çünkü 100 tane bilgisayar var hepsine ftp servr kuramam.
User2 bağlıyken, user1 in kullanıcı adı ve şifresini içeren bir exe ile, link'e dosya kopyalama yapabilir mi ? (Yani, user2 nin link'e erişimini sadece exe ile yapmasını sağlamak istiyorum)

[fduman]

Gidip o linke de User1'e verdiğin gibi User2'ye de erişim hakkı versen de uğraşmasan.

[yazicih]

sorun su aslında 100 tane bilgisayar var 100 bilgisayara da gidip tek tek hak vermek istemiyorum. serverden güncel programı yükleyecekler ama servera bağlanmak için kullanıcı adı ve şifre istiyor bunu delphi de nasıl yapabiliriz

[fduman]

100 bilgisayara hak vermeyeceksin ki. Sunucu tarafında hak verdiğinde hepsi ulaşabilecek.

[Master_Yoda]

asp den IIS in user inin hakki olmayan bir yerden resim okuyup onu response yazan bişey yapmak istediğimde bir ole yazmıştım delphi ile orada bir share'e başka bir user name password ile access etmem gerekiyordu:

Kod: Tümünü seç

function TTFileX.Read(const FileName, ShareName, UserName,
  Password: WideString): OleVariant;
var
 F: file;
 Size: Integer;
 Data: PChar;
 NS :  TNetResourceA;
 sShareName,sPassword,sUserName:String;
 pShareName,pPassword,pUserName:Array[0..250] of Char;
 cr : Integer;
begin
 ns.dwType:=ResourceType_Disk;
 ns.lpLocalName:=nil;
 sShareName:=ShareName;
 sUserName:=UserName;
 sPassword:=Password;
 StrPCopy(pShareName,sShareName);
 StrPCopy(pUserName,sUserName);
 StrPCopy(pPassword,sPassword);
 ns.lpRemoteName:=pShareName; // '\\xxxx\dizin';
 ns.lpProvider:=nil;
 cr:=WnetAddconnection2(ns,pPassword,pUsername,0);
 if  (cr<>1219) and (cr<>NO_ERROR) Then Begin
   sSharename:='Hatavar :'+intToStr(cr)+' ('+pUserName+')';
   Size:=Length(sShareName)+1;
   Result := VarArrayCreate([0, Size - 1], varByte);
   Data := VarArrayLock(Result);
   try
     strpcopy(Data,sShareName);
   finally
     VarArrayUnlock(Result);
   end;
   Exit;
 End;

 AssignFile(F, FileName);
 Reset(F, 1);
 try
   Size := FileSize(F);
   Result := VarArrayCreate([0, Size - 1], varByte);
   Data := VarArrayLock(Result);
   try
     BlockRead(F, Data^, Size);
   finally
     VarArrayUnlock(Result);
   end;
 finally
   CloseFile(F);
 end;
end;