Тема: Как скопировать файлик под пользователем в папку "ProgramFiles"
Задача скопировать файлики лицензии в папку программы которая находиться в "ProgramFiles" куда доступ только на чтение и выполнение.
Подскажите пожалуйста код скрипта.
Спасибо !
Re: Как скопировать файлик под пользователем в папку "ProgramFiles"
Qwest, очень просто: исполнить скрипт с административными правами. Можете использовать для этого, например, GP на машину (не на пользователя): у учётной записи SYSTEM есть права для записи в %ProgramFiles%.
Re: Как скопировать файлик под пользователем в папку "ProgramFiles"
alexii пишет:
Qwest, очень просто: исполнить скрипт с административными правами. Можете использовать для этого, например, GP на машину (не на пользователя): у учётной записи SYSTEM есть права для записи в %ProgramFiles%.
А можешь написать пример?
Re: Как скопировать файлик под пользователем в папку "ProgramFiles"
А что там писать?
Option Explicit
Dim strSourceFile
Dim strDestPath
If WScript.Arguments.Count = 2 Then
With WScript.CreateObject("Scripting.FileSystemObject")
strSourceFile = WScript.Arguments.Item(0)
strDestPath = .BuildPath(WScript.CreateObject("Shell.Application").NameSpace("shell:ProgramFiles").self.Path, WScript.Arguments.Item(1))
If .FileExists(strSourceFile) Then
If .FolderExists(strDestPath) Then
.CopyFile strSourceFile, strDestPath & "\", True
Else
' bla-bla-bla
End If
Else
' bla-bla-bla
End If
End With
Else
' bla-bla-bla
End If
WScript.Quit 0
В GP создаёте вызов в примерно таком виде: "<Путь к скрипту\Имя.vbs>" //b "\\Server\Share\File.txt" "My Company\My Program", где «\\Server\Share\File.txt» — путь к исходному файлу, «My Company\My Program» частичный путь к результирующей папке («%ProgramFiles%» будет добавлена автоматически).
Re: Как скопировать файлик под пользователем в папку "ProgramFiles"
Спасиб попробую
Re: Как скопировать файлик под пользователем в папку "ProgramFiles"
Qwest, не забудьте: GP — на машину, а не на пользователя. И ещё не забудьте дать права компьютерам домена на разделённый ресурс.
