Vby Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору d0nald Пример vbs скрипта пингующего комп и отсылаещего емайл, переделай под себя: Код:   On Error Resume Next   machine = "comp_name_ping"   Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}")._   ExecQuery("select * from Win32_PingStatus where address = '"_   & machine & "'")   For Each objStatus in objPing     If objStatus.StatusCode=0 Then     strComputer = "." Set objWMIService = GetObject("winmgmts:" _     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")   Set colItems = objWMIService.ExecQuery("Select * from Win32_TimeZone")   time = objItem.DaylightMinute          strComputer = "mail_server" Set objWMIService = GetObject("winmgmts:" _     & "{impersonationLevel=impersonate}!\\" & strComputer & _         "\root\MicrosoftDNS")   Set colItems = objWMIService.ExecQuery("Select * from MicrosoftDNS_AType where ownername = '"_   & machine & "'")     For Each objItem in colItems ipaddress = objItem.IPAddress Next   Set objEmail = CreateObject("CDO.Message")   objEmail.From = "admin@domain.com" objEmail.To = "user@domain.com" objEmail.Subject = machine & " (" & ipaddress  & ")" & " time: " & time objEmail.Textbody = machine  & " (" & ipaddress  & ")" & " time: " & time objEmail.Send        End If   Next     ---------- Ци ёсць што? Всего записей: 783 | Зарегистр. 16-09-2004 | Отправлено: 19:01 22-02-2007

vasrox Newbie Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору ipmailer - маленькая программка, ничего лишнего http://ipmailer.wappu.tv/download.html как только меняется айпи шлет на почту, удобно и просто, сам пользуюсь...   а еще почитай про dynamic dns... Всего записей: 10 | Зарегистр. 11-01-2006 | Отправлено: 19:47 22-02-2007

nail_abd Junior Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору http://www.whatismyip.com/ - делов то. Всего записей: 32 | Зарегистр. 22-02-2007 | Отправлено: 08:13 23-02-2007

Vby Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору d0nald Как вариант: Создаешь каталог, например, c:\mail Кладешь туда sendmail Туда же файлик sendmail.vbs след содержания: Код:   On Error Resume Next   strComputer = "." Set objWMIService = GetObject("winmgmts:" _     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set IPConfigSet = objWMIService.ExecQuery _     ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")  For Each IPConfig in IPConfigSet     If Not IsNull(IPConfig.IPAddress) Then           For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)         ipaddr = ipaddr + " " + IPConfig.IPAddress(i)             WScript.Echo ipaddr           Next     End If Next Dim Shell set Shell = WScript.CreateObject ("WSCript.shell") Shell.run("c:\mail\SendMail /smtpserver smtpserver /to to@domain.com /from from@domain.com /subject Message subject /body" + ipaddr + "/user user /password password")     Файлик в шедулер, на выполнения через заданый промежуток времени. Результат: ip машины на e-mail PS: как сказал tankistua Цитата: сначала надо описать вопрос - может кто-то чего лучше посоветует   ---------- Ци ёсць што? Всего записей: 783 | Зарегистр. 16-09-2004 | Отправлено: 16:37 23-02-2007

Mr_Hat Advanced Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору все это дичь, скидывать на почту мыло всякий раз как изменится ip, почта загадиться через неделю, не удобно...   я реализовывал по средством батника и ftp сервера в интернет. Всего записей: 1031 | Зарегистр. 04-10-2005 | Отправлено: 18:34 14-05-2009 | Исправлено: Mr_Hat, 18:34 14-05-2009

slech Silver Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Динамический IP - Dynamic IP - на Email Всего записей: 4893 | Зарегистр. 10-11-2004 | Отправлено: 00:32 15-05-2009

ext2 Gold Member Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору Aleks1259 А причем тут этот топик? Всего записей: 7105 | Зарегистр. 10-09-2007 | Отправлено: 16:01 10-01-2010

Shadow4 Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору не мудохайся с мейлами, dyndns.org или noip.com   Заходишь, регишь домен типа yaaa.dyndns.org, ставишь прогу, настраиваешь, она раз в х минут обновляет твой айпишник на yaaa.dyndns.org, и вместо адреса вводишь куда надо yaaa.dyndns.org )))))))) Всего записей: 257 | Зарегистр. 18-01-2009 | Отправлено: 23:33 10-01-2010

Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » IP адрес на E-mail

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование