1

コンピュータのスキルがほとんどない一緒に働いているグループのために、インストールを簡素化しようとしています。さまざまな構成ファイルを適切なディレクトリにコピーする vbs スクリプトがあります。ただし、コピーできないファイルが 1 つあります。

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

何か案は？

4

2 に答える 2

2

管理者として実行？

これは、タスク スケジューラを使用して簡単に行うことができます。

別のオプションは、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
于 2013-10-19T00:14:08.800 に答える