ВЕРНУТЬСЯ НА САЙТ BESTPOG.RU

Ремонт компьютеров

Информация о пользователе

Привет, Гость! Войдите или зарегистрируйтесь.

Вы здесь » Ремонт компьютеров » Отправка IP адреса на E-Mail » Отправка IP адреса на E-Mail Вариант Второй

Отправка IP адреса на E-Mail Вариант Второй

Страница: 1

Сообщений 1 страница 11 из 11

1

  • Автор: Admin
  • Администратор
  • Admin
  • Зарегистрирован: 2011-12-08
  • Приглашений: 0
  • Сообщений: 22
  • Уважение: [+0/-0]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    7 дней 23 часа
  • Последний визит:
    2014-02-07 14:02:40

Скачиваем архив, папка Вариант2
Распаковываем,
Ложим файл send.vbs в корень диска или настраиваем пути к файлу log.txt

Файл send.vbs содержит следущий скрипт:

Set objIE = CreateObject( "InternetExplorer.Application" )
     objIE.Navigate "http://2ip.ru"
Do Until objIE.ReadyState = 4
     WScript.Sleep 100
Loop
strIPAddress = objIE.Document.Body.all.tags("big").[0].innertext
objIE.Quit

strHostname="nul"
logFile = "\log.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set flink = fso.OpenTextFile(logFile, 8, True)
flink.WriteLine "IP address  : " & strIPAddress & Now
flink.WriteBlankLines(1)
flink.Close

ЭТОТ БЛОК ПРОВЕРЯЕТ ВАШ IP АДРЕСС И СОЗДАЕТ ФАЙЛ log.txt И
ЗАПИСЫВАЕТ В НЕГО ВАШ IP, ДАТУ И ВРЕМЯ СОЗДАНИЯ.
ЕГО РЕДАКТИРОВАТЬ НЕ НУЖНО.
________________________________________________________________

Set objMessage = CreateObject("CDO.Message")
emailFrom = "ИМЯ@mail.ru"
objMessage.Subject = "ТЕМА ПИСЬМА"
objMessage.From = emailFrom
objMessage.To = "ИМЯ@yandex.ru"
objMessage.TextBody = "ТЕКСТ В ПИСЬМЕ"
objMessage.AddAttachment "\log.txt"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 2525
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = emailFrom
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORDS"
objMessage.Configuration.Fields.Update
objMessage.Send

ЭТОТ БЛОК ОТПРАВЛЯЕТ ФАЙЛ log.txt НА ВАШ E-MAIL,
ГДЕ:

emailFrom = "ИМЯ@mail.ru" - АДРЕС ПОЧТЫ С КОТОРОГО БУДЕТ ОТПРАВЛЕНО ПИСЬМО.

objMessage.Subject = "ТЕМА ПИСЬМА" - ЖЕЛАТЕЛЬНО НА ЛАТИНСКОМ,
НАПРИМЕР: "IP ADRRES DOM SERVER" И Т.Д.

objMessage.To = "ИМЯ@yandex.ru"  - АДРЕС ПОЧТЫ НА КОТОРЫЙ БУДЕТ ОТПРАВЛЕНО ПИСЬМО.

objMessage.TextBody = "ТЕКСТ В ПИСЬМЕ" -  - ЖЕЛАТЕЛЬНО НА ЛАТИНСКОМ,
НАПРИМЕР: "IP ADRRES DOM SERVER" И Т.Д.

("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
- SMTP СЕРВЕР ПОЧТОВОГО ЯЩИКА С КОТОРГО БУДЕТ ОПРАВЛЯТЬСЯ ПОЧТА.

("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "PASSWORDS"
- ПАРОЛЬ ПОЧТОВОГО ЯЩИКА С КОТОРОГО БУДЕТ ОТРПАВЛЕНО ПИСЬМО.
____________________________________________________

Set fso = CreateObject("Scripting.FileSystemObject")
Set aFile = fso.GetFile(".\log.txt")
aFile.Delete

ЭТОТ БЛОК УДАЛЕТ ФАЙЛ log.txt

0

2

  • Автор: SX2
  • Новичок
  • Зарегистрирован: 2013-02-17
  • Приглашений: 0
  • Сообщений: 3
  • Уважение: [+1/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    35 минут
  • Последний визит:
    2013-02-21 23:22:52

Здраствуйте ! Помогите пожалуйста с вариантом 2 работает только если лежит в корне диска С а если в другом месте то ошибка не могу понять как прописать путь ???

Вот скрин ошибки

Отправка IP адреса на E-Mail Вариант Второй

0

3

  • Автор: Admin
  • Администратор
  • Admin
  • Зарегистрирован: 2011-12-08
  • Приглашений: 0
  • Сообщений: 22
  • Уважение: [+0/-0]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    7 дней 23 часа
  • Последний визит:
    2014-02-07 14:02:40

Set objIE = CreateObject( "InternetExplorer.Application" )
     objIE.Navigate "http://2ip.ru"
Do Until objIE.ReadyState = 4
     WScript.Sleep 100
Loop
strIPAddress = objIE.Document.Body.all.tags("big").[0].innertext
objIE.Quit

strHostname="nul"
logFile = "D:\test\log.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set flink = fso.OpenTextFile(logFile, 8, True)
flink.WriteLine "IP address  : " & strIPAddress & Now
flink.WriteBlankLines(1)
flink.Close

Set objMessage = CreateObject("CDO.Message")
emailFrom = "@mail.ru"
objMessage.Subject = "IP ADRESS"
objMessage.From = emailFrom
objMessage.To = "@yandex.ru"
objMessage.TextBody = "Inet IP Adress"
objMessage.AddAttachment "D:\test\log.txt"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 2525
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = emailFrom
objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
objMessage.Configuration.Fields.Update
objMessage.Send

Set fso = CreateObject("Scripting.FileSystemObject")
Set aFile = fso.GetFile("D:\test\log.txt")
aFile.Delete

0

4

  • Автор: Admin
  • Администратор
  • Admin
  • Зарегистрирован: 2011-12-08
  • Приглашений: 0
  • Сообщений: 22
  • Уважение: [+0/-0]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    7 дней 23 часа
  • Последний визит:
    2014-02-07 14:02:40

1 - меняем путь куда будет сохранятся наш файл log
2 - меняем путь откуда будем брать файл log для отправки почтой
3 - меняем путь откуда будет удалятся файл log

если фай log не удалим, то в следующем письме уже будет 2 ip адреса и т.д.

0

5

  • Автор: SX2
  • Новичок
  • Зарегистрирован: 2013-02-17
  • Приглашений: 0
  • Сообщений: 3
  • Уважение: [+1/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    35 минут
  • Последний визит:
    2013-02-21 23:22:52

Спасибо ! Все заработало !!! Не подскажите как еще прописать в send.vbs ipconfig /all > localip.txt а то у меня все запускается батником хочу совместить в один файл ! Вот батник

Код:
@echo off

ipconfig /all > localip.txt

send.vbs

del localip.txt /q > nul

exit

0

6

  • Автор: SX2
  • Новичок
  • Зарегистрирован: 2013-02-17
  • Приглашений: 0
  • Сообщений: 3
  • Уважение: [+1/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    35 минут
  • Последний визит:
    2013-02-21 23:22:52

Решил вот так !!!

Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "cmd.exe /c ipconfig /all> D:\test\ip.txt", 0, true

+1

7

  • Автор: Admin
  • Администратор
  • Admin
  • Зарегистрирован: 2011-12-08
  • Приглашений: 0
  • Сообщений: 22
  • Уважение: [+0/-0]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    7 дней 23 часа
  • Последний визит:
    2014-02-07 14:02:40

В коде :

strHostname="nul"
logFile = "\log.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set flink = fso.OpenTextFile(logFile, 8, True)
flink.WriteLine "IP address  : " & strIPAddress & Now
flink.WriteBlankLines(1)
flink.Close

Выделенная строка

flink.WriteLine "IP address  : " & strIPAddress & Now

Отвечает за запись запрашиваемого параметра в текстовый файл, т.е.

& strIPAddress & Now  - где

& strIPAddress - запись ip адреса в в файл,

& Now - - запись даты и время в файл.

0

8

  • Автор: Admin
  • Администратор
  • Admin
  • Зарегистрирован: 2011-12-08
  • Приглашений: 0
  • Сообщений: 22
  • Уважение: [+0/-0]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    7 дней 23 часа
  • Последний визит:
    2014-02-07 14:02:40

Для того чтоб ip адрес и дата были разными строками нужно добавить код еще одну строку

flink.WriteLine

код должен выглядеть таким образом

strHostname="nul"
logFile = "\log.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
Set flink = fso.OpenTextFile(logFile, 8, True)
flink.WriteLine "IP address  : " & strIPAddress
flink.WriteLine "Date  : " & Now
flink.WriteBlankLines(1)
flink.Close

0

9

  • Автор: Roman
  • Новичок
  • Зарегистрирован: 2013-05-02
  • Приглашений: 0
  • Сообщений: 1
  • Уважение: [+0/-0]
  • Позитив: [+0/-0]
  • Провел на форуме:
    1 час 52 минуты
  • Последний визит:
    2013-10-08 18:45:34

Отправка IP адреса на E-Mail Вариант Второй - Зачем 2 emaila ?

0

10

  • Автор: Admin
  • Администратор
  • Admin
  • Зарегистрирован: 2011-12-08
  • Приглашений: 0
  • Сообщений: 22
  • Уважение: [+0/-0]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    7 дней 23 часа
  • Последний визит:
    2014-02-07 14:02:40
Roman написал(а):

Отправка IP адреса на E-Mail Вариант Второй - Зачем 2 emaila ?

в каком месте?

0

11

  • Автор: Admin
  • Администратор
  • Admin
  • Зарегистрирован: 2011-12-08
  • Приглашений: 0
  • Сообщений: 22
  • Уважение: [+0/-0]
  • Позитив: [+1/-0]
  • Пол: Мужской
  • Провел на форуме:
    7 дней 23 часа
  • Последний визит:
    2014-02-07 14:02:40

emailFrom = "ИМЯ@mail.ru" - АДРЕС ПОЧТЫ С КОТОРОГО БУДЕТ ОТПРАВЛЕНО ПИСЬМО.

objMessage.To = "ИМЯ@yandex.ru"  - АДРЕС ПОЧТЫ НА КОТОРЫЙ БУДЕТ ОТПРАВЛЕНО ПИСЬМО.

0

Страница: 1

Вы здесь » Ремонт компьютеров » Отправка IP адреса на E-Mail » Отправка IP адреса на E-Mail Вариант Второй