使用VBS将文件复制到Windows目录，获得权限被拒绝

Question

我正在尝试简化一组与我一起工作但没有太多计算机技能的人的安装。我有一个vbs脚本，可以将各种配置文件复制到正确的目录中。但是，有一个我无法复制的文件。

我正在尝试将名为hosts的新文件复制到C：\ windows \ systems32 \ drivers \ etc文件夹中，无论我做什么，我都会继续获得权限。

Const OverWriteExisting = True
Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile "C:\users\IBM_ADMIN\Desktop\Colgate Socks\hosts", "C:\Windows\System32\drivers\etc\hosts", OverWriteExisting

有什么想法吗？

Answer 1

以管理员身份运行？

您可以通过任务计划程序轻松完成此任务。

另一个选项来自How to run scripts as administrator in Windows 7?

将其放在脚本的开头

Set WshShell = WScript.CreateObject("WScript.Shell")
If WScript.Arguments.length = 0 Then
Set ObjShell = CreateObject("Shell.Application")
ObjShell.ShellExecute "wscript.exe", """" & _
WScript.ScriptFullName & """" &_
 " RunAsAdministrator", , "runas", 1
Else
[your code here]
end if

Answer 2

使用此％windir％\ Sysnative而不是C：\ Windows \ System32。