VBS/WSH/JS - [решено] Копирование файлов из сети в случае если они еще не скопированы

[mr.scotch]

добрый день



задача, скрипт выполняется скажем при входе пользователя в систему. есть папка на сетевом ресурсе, ее надо скопировать в указанную папку на локальном компьютере, но только в случае если ее там нету. помогите реализовать

[mr.scotch]

спасибо, за внимание!



'******************************************************************

' Язык: VBScript

' Имя: Fscript.vbs

' Описание: Проверка существования приложения, на основании наличия исполняемого файла, в случае отсутствия - копирование всей директории с сетевого ресурса.

'*******************************************************************

'Объявляем переменные

Dim FSO,FileName

'Создаем объект FileSystemObject

Set FSO = WScript.CreateObject("Scripting.FileSystemObject")

'Здесь указываем файл, по которому будет определятся наличие установленного клиента.

FileName = "D:\PidginPortable\PidginPortable.exe"

'Условие

if FSO.FileExists(FileName) Then

'Выводим информацию на экран

WScript.Echo "Файл " & FileName & " существует. => Pidjin установлен.

else

'Создаем объект WshShell

Set WshShell = WScript.CreateObject("Wscript.Shell")

'Создаем объект WshNetwork

Set WshNetwork = CreateObject("WScript.Network")

'Указываем папку куда будет копироваться скрипт.

PathCopy = "d:\Скрипты vbs wsh\folderfortests\"

'Создаем объект F для папки

Set F = FSO.GetFolder("\\lancomp\resurs")

'Копируем папку

F.Copy PathCopy

'Выводим информацию на экран

WScript.Echo "Файл " & FileName & " Теперь существует!"

end if