Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  | Правила  

Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - нужен скрипт для отправки IP на имейл

Ответить
Настройки темы
VBS/WSH/JS - нужен скрипт для отправки IP на имейл

Аватара для visokosnik

Новый участник


Сообщения: 46
Благодарности: 6

Профиль | Отправить PM | Цитировать


Нашел в инетернете vbs скипт который отошлет ipconfig на почту
Код: Выделить весь код
Set WshShell = CreateObject("WScript.Shell") 
WshShell.Run "cmd.exe /c ipconfig > C:\ip.txt", 0, false 

WScript.Sleep (500)

Set S = CreateObject("Wscript.Shell")
set FSO=createobject("scripting.filesystemobject")
Call SendPost("smtp.почта.ru","логин_кому_отправляется@почта.ru","от_кого_отправляется@почта.ru","Тема_письма","текст_письма")
Function SendPost(strSMTP_Server,strTo,strFrom,strSubject,strBody)
Set iMsg=CreateObject("CDO.Message")
Set iConf=CreateObject("CDO.Configuration")
Set Flds=iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")=2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate")=1
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="от_кого_отправляется"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")="Пароль_от_почты"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")="smtp.почта.ru"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport")=25
Flds.Update
iMsg.Configuration=iConf
iMsg.To=strTo
iMsg.From=strFrom
iMsg.Subject=strSubject
iMsg.TextBody=strBody
iMsg.AddAttachment "C:\ip.txt"
iMsg.Send
End Function
Set iMsg=Nothing
Set iConf=Nothing
Set Flds=Nothing
но он не работает пишет ошибку
строка: 26
символ:1
Ошибка: Транспорту не удалось подключиться к серверу
код: 80040213
Источник : CDO.message.1
помогите разобраться
P.S.может это тоже имеет значение у меня Win7x64 на XP этот скрипт не пробовал

Отправлено: 22:59, 05-05-2012

 

Аватара для orell

Новый участник


Сообщения: 5
Благодарности: 0

Профиль | Отправить PM | Цитировать


там во первых текст письма должен сам указываться и там должно прописываться сами айпи Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")="от_кого_отправляется"-так должно быть тут должно быть вот это(кому отправляеться ) а дальше сам

Отправлено: 13:57, 06-05-2012 | #2



Для отключения данного рекламного блока вам необходимо зарегистрироваться или войти с учетной записью социальной сети.

Если же вы забыли свой пароль на форуме, то воспользуйтесь данной ссылкой для восстановления пароля.


Аватара для visokosnik

Новый участник


Сообщения: 46
Благодарности: 6

Профиль | Отправить PM | Цитировать


orell в том то и дело что если даже отправляешь сам себе то ошибка все равно таже "Транспорту не удалось подключиться к серверу"
поэтому разницы нет кому и от_кого_отправляется
посоветуйте решение проблемы может другой скрипт

Последний раз редактировалось visokosnik, 07-05-2012 в 23:20.


Отправлено: 18:21, 06-05-2012 | #3



Компьютерный форум OSzone.net » Программирование, базы данных и автоматизация действий » Скриптовые языки администрирования Windows » VBS/WSH/JS - нужен скрипт для отправки IP на имейл

Участник сейчас на форуме Участник сейчас на форуме Участник вне форума Участник вне форума Автор темы Автор темы Шапка темы Сообщение прикреплено

Похожие темы
Название темы Автор Информация о форуме Ответов Последнее сообщение
VBS/WSH/JS - Скрипт для автоматической отправки файла pers26 Скриптовые языки администрирования Windows 0 02-03-2012 16:03
VBS/WSH/JS - Скрипт для отправки логов по емэйл BSDельник Скриптовые языки администрирования Windows 8 12-08-2011 16:58
Небольшой скрипт для отправки Email. Без вложений. Centrinar AutoIt 1 23-04-2011 02:37
Скрипт для отправки команд telnet Hardman Программирование и базы данных 4 16-03-2007 06:14
скрипт для дампа базы и отправки на другой хост nix_lamer Программирование в *nix 5 12-02-2007 14:09




 
Переход