Често администратори система користе скрипте у скрипту Висуал Басиц Сцрипт (вбс) за надгледање различитих сервера или мрежних услуга.
Дакле, преда мном је био задатак писања скрипте за надгледање одређених догађаја на серверу и за случај да се они појаве слањем поште у поштанско сандуче администратора.
Већ сам описао неколико начина слања поште (слање поште помоћу скрипте на ПоверСхелл-у, такође можете послати е-поруку директно из командне линије помоћу телнета). Међутим, пошто је у тренутном задатку скрипта праћења написана у вбс-у, било би разумније послати е-пошту директно из вбс кода скрипте. Како послати емаил од вбс?
Интернет има огроман број различитих скрипти за слање е-порука са вбс-а (Висуал Басиц Сцрипт), али проблем је што велика већина њих користи програмска интерфејса било Мапи (Оутлоок), било СМТП сервера. И од тада Нисам инсталирао Оутлоок на сервер нити конфигурирао локалне СМТП сервере, моји планови нису укључивали такве опције скрипте слање поште с вбсцрипт-а није одговарао.
Срећом, успео сам да нађем нормалан сценариј за слање емаил од вбс, што не захтева ништа инсталирање на сервер:
Функција сендМаил () стрСмтпСервер = "мсг-01" 'име поштанског сервера, у мом случају то је Екцханге стрСмтпПорт = 25 стрСмтпАутх = "не" стрСмтпСсл = "не" стрДате = датум стрСендингЕмаил = "сервер1@винитпро.ру"' Име пошиљаоца стрРепорт = "админ@винитпро.ру" 'Име приматеља' ВСцрипт.Ецхо логПатх & "\ бацкуп" & стрДате & ".хтмл" Постави објМессаге = ЦреатеОбјецт ("ЦДО.Мессаге") објМессаге.Цонфигуратион.Фиелдс.Итем ("хттп: //сцхемас.мицрософт.цом/цдо/цонфигуратион/сендусинг ") = 2 објМессаге.Цонфигуратион.Фиелдс.Итем (" хттп://сцхемас.мицрософт.цом/цдо/цонфигуратион/смтпсервер ") = стрСмтпСервер објМессаге.Цонфигуратион.Фиелдс .Итем ("хттп://сцхемас.мицрософт.цом/цдо/цонфигуратион/смтпсерверпорт") = стрСмтпПорт Иф стрСмтпАутх = "да" Затим објМессаге.Цонфигуратион.Фиелдс.Итем ("хттп://сцхемас.мицрософт.цом/цдо" / цонфиг / смтпаутхентицате ") = 1 'користи' 2" за НТЛМ провјеру идентитета објМессаге.Цонфигуратион.Фиелдс.Итем ("хттп://сцхемас.мицрософт.цом/цдо/цонфиг уратион / сендусернаме ") = стрСмтпУсер објМессаге.Цонфигуратион.Фиелдс.Итем (" хттп://сцхемас.мицрософт.цом/цдо/цонфигуратион/сендпассворд ") = стрСмтпПасс Енд Иф стрСмтпСсл =" иес ", тада објМессаге.Цонфигуратион.Фиелдс. Итем ("хттп://сцхемас.мицрософт.цом/цдо/цонфигуратион/смтпусессл") = Труе Енд ако је објМессаге.Цонфигуратион.Фиелдс.Упдате објМессаге.Субјецт = "Тема е-поште" & стрДате & "." објМессаге.Фром = стрСендингЕмаил објМессаге.То = стрРепортЕмаил објМессаге.ХТМЛБоди = "Текст поруке" објМессаге.Сенд Енд Фунцтион
