Skip to main content

AccessTr.neT


Network Login Olma

covannipacino
covannipacino
4
570

Network Login Olma

Çözüldü #1
Merhaba arkadaşlar
Ben ağ ortamında tablodan aldığım kullanıcı adı ve şifre ile bir servera login olup dosya upload yapmak istiyorum.
Şu anda bunu mapli bir drive oluşturarak yapabiliyorum ama kullanıcılar map açıkken dizine girip bütün dosyaları görebiliyorlar. Benim istediğim Access üzerinden sadece tıklanan dokümanın açılmasını sağlamak. Şimdiden teşekkürler.
Cevapla
#2
Merhaba, malesef birşey anlamadım. Örnek uygulama ve login olunan sitenin sayfa kaynak kodlarını eklerseniz inceleyip çözüm bulmaya çalışırız.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
Cevapla
#3
Hocam merhaba örnek dosyayı hazırlıyorum biraz komplike sistemden ayırmam zor ancak aşağıdaki function la yaptığım işlemi 
objNetwork.MapNetworkDrive K: drive olarak yapmaktan ziyade drive maplameden yapmak istiyorum. Dosyayı hazırlayıp en kısa sürede atacağım


Public Function sysdepoac() As String

Dim objNetwork
Dim strDriveLetter
Dim strRemotePath
Dim strUserName
Dim strPassWord
strDriveLetter = Dlookup ("surucu", "domainbilgileri", "ekranno=ekrannom")
strRemotePath = Dlookup ("uzakdizin", "domainbilgileri", "ekranno=ekrannom")
Set objNetwork = CreateObject("WScript.Network")
strUserName = Dlookup ("domainandclientname", "domainbilgileri", "ekranno=ekrannom")
strPassWord = Dlookup ("parola", "domainbilgileri", "ekranno=ekrannom")
objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, , strUserName, strPassWord

End Function

Public Function sysdepokapa() As String

Dim objNetwork
Dim strDriveLetter
Dim strRemotePath
Dim strUserName
Dim strPassWord
strDriveLetter = Dlookup ("surucu", "domainbilgileri", "ekranno=ekrannom")
strRemotePath = Dlookup ("uzakdizin", "domainbilgileri", "ekranno=ekrannom")
Set objNetwork = CreateObject("WScript.Network")
strUserName = Dlookup ("domainandclientname", "domainbilgileri", "ekranno=ekrannom")
strPassWord = Dlookup ("parola", "domainbilgileri", "ekranno=ekrannom")
objNetwork.RemoveNetworkDrive Dlookup ("surucu", "domainbilgileri", "ekranno=ekrannom")

End Function
Cevapla
#4
merhaba.

bekliyoruz.
Cevapla
#5
Yazdığım koddaki şekliyle oluyor ancak bir sürücü atayıp login olup sonra işleminiz bitince logini kopartıyorsunuz. Verdiğim kodlar çalışıyor ihtiyacı olan kullanabilir.
Ben verileri tablodan alıyorum. Tablodan almadan formda da aşağıdaki şekilde uyarlarsınız.
Ben işlemi dokümanları network ortamında ortak bir alana kopyalamak için kullanıyorum. Programı kullananların ortak alana giriş izinleri yok. Bu sayede login olup kopyalama yapabiliyorlar.

strDriveLetter = "K:"
strRemotePath = "\\192.168.1.1\Test\"
Set objNetwork = CreateObject("WScript.Network")
strUserName = "Ahmet"
strPassWord = "123456Abc"
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task