中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客: 注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 关于一段组策略中的VBS~

zhanghong1
初级用户

积分 78
发帖 34
注册 2006-12-9
状态离线

『楼主』: 关于一段组策略中的VBS~

想实现：将服务器上\\192.168.1.50\soft\updatepdmoa\update.exe拷贝到当前登录域网户名的桌面上。
可总是报错，求正确方法。感谢~~~

Dim WshShell,path,oShell,fso

Set WshShell=Wscript.CreateObject("Wscript.Shell")
path=WshShell.SpecialFolders("Desktop")

Set fso = Wscript.CreateObject("Scripting.FileSystemObject")
set c=fso.getfile("\\192.168.1.50\soft\updatepdmoa\update.exe")
c.copy(path) //错在这里吗？怎么拷贝到当前用户桌面呢?
set fso = nothing
WScript.quit

新学VBS，实在搞不懂错在哪了，盼高手解答一下。非常感谢 !!!!!!!!!!!!

2009-6-30 23:12