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