HTML код:
'Скрипт для отправки сообщения пользователям и архивирования файла.
filePath = "D:\distrib\Panasonic\info.xls"
archPath = "D:\distrib\Panasonic\info.rar"
winRarPath = """C:\Program Files\WinRAR\WinRAR.exe"""
Set fs = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set f = fs.GetFile(filePath)' Тут указываем за чем следим?
x = f.DateLastModified
While 1
If f.DateLastModified > x Then
sendmail
WshShell.Run winRarPath & " a -sfx -t -m3 -r -y -dh -agDD-MMM-YY-HH-MM -ep3 " & archPath & " " & filePath, 0, True
x = f.DateLastModified
End If
WScript.Sleep 1000
Wend
Sub sendmail
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "" 'Тут указываем от кого отправляются сообщения.
objEmail.To = "" 'Список или одного получателя кому отправлять сообщения. Если список, то указываем через запятую.
objEmail.Subject = "File was Modified, Файл был изменен!" 'Тема письма.
objEmail.Textbody = "File was Modified, and server was created backup. Archive will keep 30 days, after it'll be delited!!! This is message, only inform you about somebody opened the ........." 'Само письмо!
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = "" 'Учетная запись.
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "" 'Пароль.
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "" 'Сервер.
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 'Порт исходящего сервера.
objEmail.Configuration.Fields.Update
objEmail.Send
'WScript.Quit 'Эта строка должна быть закоменттрованна, для того чтобы скрипт не завершал работу. А ложился баюшки, до следующего открытия файла.
End sub
Может скажешь нужно, аналог данного скрипта, но в место отправки нужно чтобы писался лог открытия файла, конкретным пользователем в домене?
