Отправка сообщения через smtp сервер

'Данный скрипт копирует получает на вход аргумент в виде имени базы данных
'и отправляет сообщение на почту письмо с тем, что файл с именем базы данных не найден

Set objArgs = WScript.Arguments

Set myMail=CreateObject("CDO.Message")
myMail.Subject="Ошибка копирования бэкапа БД на удаленный сервер"
myMail.From="from@mail.ru"
myMail.To="to@mail.ru"
myMail.TextBody="Не найден файл " + objArgs(0) + " резервной копии БД в каталоге бэкапов для копирования на удаленный сервер"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2

'Name or IP of remote SMTP server
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="mail.test.ru"

'порт smtp сервера
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=587

'Отправка с аутентификацией
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "sender@mail.ru"
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "12345678"

myMail.Configuration.Fields.Update
myMail.Send
set myMail=nothing

'Командная строка для запуска данного скрипта:
'cscript.exe <Имя файла скрипта> <FileName>