将文件从脚本目录复制到所有用户＆＃39;桌面

Question

我已经编写了下面的脚本，但是当我运行它时（使用PrimalScript进行故障排除）我收到错误＆＃39;权限被拒绝＆＃39;。 我是这个设备上的管理员，当我运行脚本时，我得到了同样的错误。

这是脚本：

{{1}}

我做错了什么？

Answer 1

您必须设置一个流程：

Dim ofso, oshell, oproc, strDesktop, overwrite
Set ofso = CreateObject("Scripting.FileSystemObject")
Set oshell = CreateObject("WScript.Shell")
Set oproc  = oshell.Environment("Process")
strDesktop = oproc.Item("UserProfile") & "\Desktop\"
overwrite = True
ofso.CopyFile "pwsafe.psafe3" , strDesktop , overwrite

Answer 2

虽然我的上一篇评论显示该剧本不起作用，但下面的剧本是Sergio和Lankymart的作品的组合。想要提及他们，因为他们值得信任。这是工作脚本，我希望其他人可以使用它。

myVariable = false

谢谢你们两位。