VPN FTP gibi tek bir protokol değil maalesef. VPN içinde bir çok protokol mevcut. Sizin kullanmaya çalıştığınız VPN protokolü hangi uygulamayı kullanıyorsa parametre ile çağırarak belki bağlanmasını sağlayabilirsiniz.
Peki söyle sorayım
Ağdaki paylaşılan şifreli klasöre nasıl ulaşabilirim
Örnek
başlat çalıştır da \\arsiv_pc\YILLAR yazınca https://i.hizliresim.com/r3blYN.jpg
çkıyor
kullanıcı adı şifre istiyor programın içine ekliyeceğim kullanıcı adı ve şifreyle klasöre erişimde şifre sormadan klasoru açmasını istiyorum
program içerisinden ağ sürücüsüne bağlanmasını sağlayabilirsiniz belki. Manuel olarak bu işlem yapılırken kullanıcı adı ve şifre girilebiliyor. Ağ sürücü olarak bağlandığınızda kullanıcılarda dosyalara erişebilecektir, istedğiniz bir durum değil sanırım. Sadece uygulamanız içinde paylaşıma erişmek istiyorsanız samba client olarak arama yapabilirsiniz.
Sorunumu detaylı anlatayım
Olay şöyle aslında
delphi 7 de yazılmış 200 ze yakın modullu olan entegre program var bu programın datalarını belirli sunucularda saklı aynı zamanda ortak kullandıkları alanlar var.
ya bu alanlar vpn yada ağdaki pclerin içersinde paylaşılan şifreli klasörler olduğundan ve bu şifreler saatlik veya günlük değişime uğradığından ayrıca
kulanıcı sayısı değiştiğinden herkese her alanın şifresini vermek yerine program içersinden şifre türeterek istelilen klasöre erişim imkanı sağlamaya çalışıyorum buraya kadar tamam.
sorunuma gelince örnek olarak yıllar öncesinden sitelere girerken hatırlıyorum
www.siteadi.com:@kullaniciadi:sifre gibi web sayfasına yazarak siteye kullanıcı adı şifre yazmadan giriyorduk ama tam yazılışını hatırlamıyorum
şimdi ağdaki bir bilgisayarın paylaşılan şifreli klasörüne ulaşmak için kullanıcıya diyemem öncelikler başlat çalıştıra gir komut satırına \\192.168.1.20 yaz gelen pencereye kullanıcı adı sunu yaz, parolaya bunu yaz gir klasöre. sonra masaustune gec programı çalışıtır demek ölüm çünkü ne bir kişiye öğreteceksin ne 1000 kişiye
o yüzden bunları benim bir defa yapmam gerek bunun içinde
program içersinde once ağı kontrol edecek bilgisayarı bulacak kulanıcı adı şifresini girecek programa devam edip çalışacak komut yordamı lazım
function ConnectShare(Drive, RemotePath, UserName, Password : String):Integer;
var
NRW : TNetResource;
begin
with NRW do
begin
dwType := RESOURCETYPE_ANY;
if Drive <> '' then
lpLocalName := PChar(Drive)
else
lpLocalName := nil;
lpRemoteName := PChar(RemotePath);
lpProvider := '';
end;
Result := WNetAddConnection2(NRW, PChar(Password), PChar(UserName), 0);
end;
function DisconnectShare(Drive : String):Integer;
begin
Result := WNetCancelConnection2(PChar(Drive), 0, false);
end;
Düzeltme..:Sanırım bu ağ sürücüsü oluşturmak için ama yine de biraz kurcalamakta fayda olabilir.
Şaban Şahin AKMAN
_________________ Derin olan kuyu değil kısa olan iptir. - .