'* you must assume there is some letter unused you can map too
'* or you could add something to try to unmap a drive first
'* NOTE: there is no way in wmi to map or unmap a drive
'* it would be nice if there was though

sHostServer = "server1"
sDestServer = "server2"

SourceFile = "C:\Filetotransfer.txt"
DestFile = "Z:\destination.txt"
Sharepath = "\\" & sDestServer & "\D$\scripting"


set oWMISvc = GetObject("winmgmts:\\" & sHostServer & "\root\cimv2")
'* Impersonation level must be delegation to map a drive using the privileges of the
'* account executing the script only supported in Win 2000 and above
oWMISvc.Security_.ImpersonationLevel = 4
set oFile = oWMISvc.Get("cim_datafile='" & SourceFile & "'")
set oProcess = oWMISvc.Get("Win32_Process") 

'* map drive
lRet = oProcess.Create("net use Z: """ & Sharepath & """", Null, Null, lPID)

if lRet <> 0 then 
	wscript.Echo "Map Drive Failed Returned Code : " & lRet 
	wscript.quit(lRet)
end if 

Wscript.Sleep 2000

'* copy file
lRet = oFile.Copy(DestFile)

if lRet <> 0 then
	wscript.Echo "File Copy Failed Returned Code : " & lRet
end if

'* unmap drive
lRet = oProcess.Create("net use Z: /d /y", Null, Null, lPID)
if lRet <> 0 then 
	wscript.Echo "Remove map Drive Failed Returned Code : " & lRet 
end if