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