[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