[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.