Копирование файлов.

[Jeerjmin]

Нужен скрипт для копирования файлов в папку Local текущего пользователя.
Подскажите как это сделать?

[Iska]

copy <Откуда> <Путь к папке Local>
P.S. Для меня непонятно, что есть «папка Local текущего пользователя».

[Jeerjmin]

Iska, Компьютер на работе один и тот-же, но из-за текучке кадров работники меняются. Создаются новые пользователи с чистым рабочим столом и тк работники совсем нулевые в плане работы ПК родилась идея скрипта, который будет копировать необходимые файлы на рабочий стол пользователя, который запустил скрипт. Скрипт будет лежать на серваке.

[Iska]

Так на Рабочий стол или некую непонятную мне «папка Local»?

[Jeerjmin]

Iska, Не в этом затруднения, рабочий стол (C:\Users\User1\Desktop) или Local (C:\Users\User1\AppData\Local).
Затруднения в том, что имя пользователя будет постоянно меняться, а скрипт должен подходить для всех и оставаться неизменным.

[mwz]

Jeerjmin, а не проще ли покидать всё нужное в папку c:\Users\Default (т.е. ярлыки Рабочего Стола — в папку c:\Users\Default\Desktop, начальные документы - в c:\Users\Default\Documents, ярлыки программ — в C:\Users\Default\AppData\Roaming\Microsoft\Windows\Start Menu, и т.д.)?

Собственно, я так уж лет десять делаю...

[Iska]

Jeerjmin, именно в этом. Потому как для одного местоположения — один код, для другого — другой.

Например:
рабочий стол »
Option Explicit

Dim strSourceFolder
Dim strDestFolder


strSourceFolder = "\\Server\Share"

With WScript.CreateObject("Scripting.FileSystemObject")
If .FolderExists(strSourceFolder) Then
strDestFolder = WScript.CreateObject("WScript.Shell").SpecialFolders("Desktop")
.CopyFile .BuildPath(strSourceFolder, "*.*"), strDestFolder
Else
WScript.Echo "Source folder [" & strSourceFolder & "] not found."
WScript.Quit 1
End If
End With

WScript.Quit 0

или Local (C:\Users\User1\AppData\Local) »
Option Explicit

Dim strSourceFolder
Dim strDestFolder


strSourceFolder = "\\Server\Share"

With WScript.CreateObject("Scripting.FileSystemObject")
If .FolderExists(strSourceFolder) Then
strDestFolder = WScript.CreateObject("Shell.Application").NameSpace("shell:Local AppData").self.Path
.CopyFile .BuildPath(strSourceFolder, "*.*"), strDestFolder
Else
WScript.Echo "Source folder [" & strSourceFolder & "] not found."
WScript.Quit 1
End If
End With

WScript.Quit 0

И то, и другое — на WSH.