'##############################################################################
'########            проверка-создание дерева каталогов              ##########
'##############################################################################
' 1/2
Dim s_chkPath : s_chkPath = ""
Sub chkFolder(s_path) ' проверка существования файла(логфайла, например)
 Dim s_fso, s_a
 Set s_fso = CreateObject("Scripting.FileSystemObject")
 If Not s_fso.FolderExists(s_path) Then ' если папка не существует
   If StrComp(right(s_path,1),"\") = 0 Then ' папка с пустым именем нам не нужна :)
     s_chkPath = left(s_path, len(s_path) - 1)
    Else
     s_chkPath = s_path
   End If
   ' разбиваем путь на состовляющие
   Dim s_arrFolderPath(), s_regEx, s_Match, s_Matches   ' Create variable.
   Set s_regEx = New RegExp   ' Create regular expression.
   s_regEx.Pattern = "(\\){1}?"   ' Set pattern.
   s_regEx.Global = True   ' Set global applicability.
   Set s_Matches = s_regEx.Execute(s_path)   ' Execute search.
   Redim s_arrFolderPath(s_Matches.count)
   s_chkPath = s_fso.BuildPath (s_chkPath,"")
   wscript.echo "проверяемый путь => " & s_path
   Call MkFldrTree(s_arrFolderPath, s_fso.BuildPath(s_chkPath,""), 0)
 End If
 Set s_a = Nothing
 Set s_fso = Nothing
End Sub
' 2/2
Sub MkFldrTree(Byref s_arr(), s_path2chk, s_fi) ' формирование дерева каталогов
 Dim s_fso
 Set s_fso = CreateObject("Scripting.FileSystemObject")
 If s_fso.FolderExists(s_path2chk) Then ' если полученный путь существует...
  If StrComp(s_path2chk, s_chkPath, vbTextCompare) <> 0 Then
    Dim s_fi2
    For s_fi2 = s_fi - 1 To 0 step - 1
     wscript.echo "создаю папку: " & s_path2chk & "\" & s_arr(s_fi2)
     s_fso.CreateFolder s_path2chk & "\" & s_arr(s_fi2)
     s_path2chk = s_path2chk & "\" & s_arr(s_fi2)
    Next
    wscript.echo "done"
  End If
 Else ' если полученный путь НЕ существует...
  wscript.echo s_path2chk & " - не найдена"
  ' укорачиваем путь на один уровень
  s_arr(s_fi) = Right(s_path2chk, Len(s_path2chk)-InStrRev(s_path2chk, "\", -1, vbTextCompare))
  s_path2chk = Left(s_path2chk, InStrRev(s_path2chk, "\", -1, vbTextCompare) - 1)
  s_fi = s_fi + 1
  Call MkFldrTree(s_arr, s_path2chk, s_fi)
 End If
 Set s_fso = Nothing
End Sub
'##############################################################################

Sub SendEMail (Message, Attach)

  objEmail.From = "login@mail.ru"
  objEmail.To = SendTo
  objEmail.Subject = MarkerR & " копия"
  objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = SmtpServer
  objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
  objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'smtp сервак просит аутентификации
  objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "login@mail.ru" 'указываем логин
  objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password" 'указываем пароль
  objEmail.Configuration.Fields.Update

  objEmail.Textbody = Message
  If Attach <> "" Then
    objEmail.AddAttachment Attach
  End If
  objEmail.Send
End Sub

Set objEmail = CreateObject("CDO.Message")

        With objEmail

          .From = "юзер@имядомена.ru"
          .To = SendTo

          For i = 0 To UBound(SplitAttach)

            .AddAttachment SplitAttach(i)

          Next
          '.AddAttachment  "c:\q.img"
          .Subject = Subj
          .Textbody = SendedBody

          With .Configuration.Fields

            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "имясервера.имядомена.Local"
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Update

          End With

          .Send

       End With

Option Explicit
Dim WshShell, WshSysEnv
Set WshShell = WScript.Createobject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("Process")
wscript.echo WshSysEnv("USERNAME")
wscript.echo WshSysEnv("COMPUTERNAME")

Function sendMail()
strDate=date
strSendingEmail="server1@winitpro.ru" ' Имя отправителя
strReportEmail="admin@winitpro.ru" ' Имя получателя
'WScript.Echo logPath & "\backup" & strDate & ".html"
Set objMessage = CreateObject("CDO.Message")
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "msg-01"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2 'use '2' for NTLM authentication
objMessage.Configuration.Fields.Update
objMessage.Subject = "Тема письма" & strDate & "."
objMessage.From = strSendingEmail
objMessage.To = strReportEmail
objMessage.BodyPart.Charset = "windows-1251"
objMessage.TextBody = "Текст сообщения"
objMessage.Send
End Function

call sendMail()

Function sendMail()
strSmtpServer="msg-01" ' имя почтового сервера, в моем случае это Exchange
strSmtpPort=25
strSmtpAuth="no"
strSmtpSsl="no"
strDate=date
strSendingEmail="server1@winitpro.ru" ' Имя отправителя
strReportEmail="admin@winitpro.ru" ' Имя получателя
'WScript.Echo logPath & "\backup" & strDate & ".html"
Set objMessage = CreateObject("CDO.Message")
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpServer
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = strSmtpPort
If strSmtpAuth = "yes" Then
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'use '2' for NTLM authentication
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = strSmtpUser
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strSmtpPass
End If
If strSmtpSsl = "yes" Then
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
End If
objMessage.Configuration.Fields.Update
objMessage.Subject = "Тема письма" & strDate & "."
objMessage.From = strSendingEmail
objMessage.To = strReportEmail
objMessage.HTMLBody = "Текст сообщения"
objMessage.Send
End Function