Скрипт appstart.vbs

Dim SourceFolder, LogFile, CurrentPath, AppName

AppName = "app.exe"
SourceFolder = "\\Server\Distr\"
LogFile="autoupdate.log"

If CheckNewVersion(AppName) = True Then
' чтобы юзер понял что происходит и не жал запуск программы несколько раз
ON Error Resume Next
aChar = "merlin"
Set ACTL = CreateObject("Agent.Control.2")
ACTL.Connected = True
If isObject(ACTL) Then
ACTL.Connected = True
ACTL.Characters.Load aChar, aChar & ".acs"
If Err.Number = 0 Then
Set CREF = ACTL.Characters(aChar)
CREF.MoveTo 400, 300
CREF.Show
' CREF.Play "Explain"
CREF.Speak "Обновление программы..."
' CREF.Play "Announce"
CREF.MoveTo 0, 0
End If
end if
' копирование файлов
Call CopyFiles()
End if

' непосредственно запуск самой программы
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run AppName , 1, False

Function CheckNewVersion(asFileName)
Dim fso, f1, f2
CheckNewVersion = False

Set fso = CreateObject("Scripting.FileSystemObject")

' проверить дату модификации файла
IF fso.FileExists(SourceFolder + asFileName) then
Set f2 = fso.GetFile(SourceFolder + asFileName)
If fso.FileExists(asFileName) THEN
Set f1 = fso.GetFile(asFileName)
if DateDiff("s", f1.DateLastModified, f2.DateLastModified ) > 60 then
CheckNewVersion = True
end if
else
CheckNewVersion = True
end if
END IF
End Function

Sub CopyFiles()
Dim fso, f1, f2, MyFile, UFolder, UFile, OFolder
Set fso = CreateObject("Scripting.FileSystemObject")
Set UFolder = fso.getfolder(SourceFolder)
set UFile = UFolder.files
Set OFolder = fso.getfolder(".")

If (fso.FileExists(LogFile)) Then
Set MyFile = fso.OpenTextFile(LogFile, 8, True)
Else
Set MyFile = fso.CreateTextFile(LogFile)
end if

For Each f1 in UFile
fso.CopyFile UFolder&"\"&f1.Name, OFolder&"\"&f1.Name
MyFile.WriteLine(Cstr(Date)&" "&Cstr(Time)&" Файл "&f1.Name&" обновлен. Размер "&f1.Size)&". Дата "&f1.DateLastModified
Next
End Sub