Автоматическая генерация отчетов для Консультант+

Данный скрипт написанный на vbs позволит вам генерировать отчет Консультанта с последующей отправкой на e-mail. Должен быть установлен 7zip.

currentDirectory = left(WScript.ScriptFullName,(Len(WScript.ScriptFullName))-(len(WScript.ScriptName)))

archName = "arch_" & FormatDateTime(Date(), 0) & ".zip"

set Shell = CreateObject("WScript.Shell")

return = shell.run ("cons.exe /adm /yes /usr /base*",1,true)
return = shell.run (currentDirectory & "auto\7z\7z.exe a -tzip -r " & currentDirectory & archName & " " & currentDirectory & "receive ",1,true)
Set objMsg = CreateObject("CDO.Message")
Set Config = CreateObject("CDO.Configuration")
Set Config = objMsg.Configuration
objMsg.From = "otkogo@mail.ru"
objMsg.To = "komy@otpravit.ru"
objMsg.Subject = "Отчет Консультант плюс"
objMsg.Textbody = "Отчет сгенерирован автоматически."
objMsg.AddAttachment currentDirectory & archName
Config("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Config("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
Config("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Config("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Config("http://schemas.microsoft.com/cdo/configuration/sendusername") = "otkogo@mail.ru"
Config("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
Config.Fields.Update
objMsg.Send
return = shell.run ("cmd /c del " & currentDirectory & archName)