vbs文件 提示文件路径错误，请高手指点？

Question

下面是vbs文件
再局域网内报错 （提示文件路径错误）
 Dim wshShell
 Set wshShell = CreateObject("Wscript.Shell")
 wshShell.Run "net use \\comput5\ipc$ "''''&" /user:guest"
 Const OverWriteFiles = True
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 objFSO.CopyFolder "\\comput5\公用文件夹\hygl" , "d:\hygl" , OverWriteFile再本地可以复制文科
 Const OverWriteFiles = True
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 objFSO.CopyFolder "f:\hygl" , "d:\hygl" , OverWriteFiles现在需要修改为再局域网内可以复制的代码！
谢谢了

Answer 1

Set objFSO = CreateObject("Scripting.FileSystemObject")
 wshShell.Run "net use z: \\comput5\公用文件夹"
 objFSO.CopyFolder "z:\hygl" , "d:\hygl" , OverWriteFile

Answer 2

还是不行！
hygl(位于“Comput5”上（H）已做映射)
即：H:\  就是 服务器中hygl的目录修改为下面的代码，还是提示 ‘无效的调用或参数’
 Dim wshShell
 Set wshShell = CreateObject("Wscript.Shell")
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 wshShell.Run "net use h: \\comput5\h"
 objFSO.CopyFolder "h:\" , "d:\hygl" , OverWriteFile

Answer 3

Dim wshShell
 Set wshShell = CreateObject("Wscript.Shell")
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 wshShell.Run "net use h: \\comput5\hygl"
 objFSO.CopyFolder "h:\" , "d:\hygl" , OverWriteFile
修改成这样，也是报同样的错！

Answer 4

那可能检测了是否是本地磁盘吧
CopyFile api的时候是可以用隐射的。 除非他在上一级做了判断

Answer 5

备注:
comput5 中的hygl  是做过映射的h
 
Dim wshShell
 Set wshShell = CreateObject("Wscript.Shell")
 wshShell.Run "net use h:\\comput5\ipc$ "''''&" /user:guest"
 Const OverWriteFiles = True
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 objFSO.CopyFolder "h:\hygl" , "d:\hygl" , OverWriteFile
提示错误为:
磁盘没有准备好!
怎么解决?
多谢!