может, поможет. Скрипт на ВБ:
Option Explicit
On Error Resume Next
Dim WshShell, WshNetwork, FSO
Set WshShell = WScript.CreateObject("WScript.Shell")
Set FSO = WScript.CreateObject("Scripting.FileSystemObject")
MapDrv "Z:", "\\192.168.1.1\1c\UPR2015", False, "user@domain.ru", "password"
FSO.CopyFile "Z:\file.zip", "D:\ZIPs"
UnmapDrv "Z:"
Function MapDrv(DrvLet, UNCPath, UpdateProfile, User, Pass)
Dim WshNetwork ' Object variable
Dim Msg
Set WshNetwork = WScript.CreateObject("WScript.Network")
On Error Resume Next
WshNetwork.RemoveNetworkDrive DrvLet
WshNetwork.MapNetworkDrive DrvLet, UNCPath, UpdateProfile, User, Pass
Select Case Err.Number
Case 0 ' No error
Case -2147023694
WshNetwork.RemoveNetworkDrive DrvLet
WshNetwork.MapNetworkDrive DrvLet, UNCPath, UpdateProfile, User, Pass
Case -2147024811
WshNetwork.RemoveNetworkDrive DrvLet
WshNetwork.MapNetworkDrive DrvLet, UNCPath, UpdateProfile, User, Pass
Case Else
Msg = "Mapping network drive error: " & _
CStr(Err.Number) & " 0x" & Hex(Err.Number) & vbCrLf & _
"Error description: " & Err.Description & vbCrLf
Msg = Msg & "Domain: " & WshNetwork.UserDomain & vbCrLf
Msg = Msg & "Computer Name: " & WshNetwork.ComputerName & vbCrLf
Msg = Msg & "User Name: " & WshNetwork.UserName & vbCrLf & vbCrLf
Msg = Msg & "Device name: " & DrvLet & vbCrLf
Msg = Msg & "Map path: " & UNCPath
WshShell.LogEvent 1, Msg, "SRV"
End Select
End Function
Function UnmapDrv(DrvLet)
Dim WshNetwork ' Object variable
Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.RemoveNetworkDrive DrvLet
End Function
Подключает сетевой диск как Z: под определенным доменным пользователем, копирует необходимый файл, отключает диск