我以前没有制作过VBS脚本，但我希望将服务器上的文件复制到客户端的本地硬盘上，并且这样做了：

Question

我已经登录了vbs（第一次），所以当有人登录到域时，它会将文件从网络驱动器复制到每台本地计算机。这是否有效（只要目录正确）？

<% 
dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
If filesys.FileExists("W:\Student Shared Area\SBN\registration.xml") Then
  filesys.CopyFile "W:\Student Shared Area\SBN\registration.xml"  _
    , "C:\Program Files\New-Media-Learning\Logicator\"
End If
%>

Answer 1

我发现您的代码存在两个潜在问题：

• 登录脚本运行时，尚未映射驱动器W:。在复制文件之前映射驱动器时，这不会是一个问题，但使用UNC路径作为源可能仍然更好：

  filesys.CopyFile "\\server\share\Student Shared Area\SBN\registration.xml", "C:\Program Files\New-Media-Learning\Logicator\"

  我个人更喜欢Group Policy Preferences，如果这是你的选择。

• 用户对C:\Program Files\New-Media-Learning\Logicator\没有写权限（登录脚本在用户的上下文中运行）。这可以通过带有GPO的文件夹上的changing permissions来缓解。