VBS отправить имя пользователя и айпи по почте

Здравствуйте есть такой скрипт:

Const EmailFrom = "eeee@mail.ru"
Const EmailPassword = "pass"
Const strSmtpServer = "smtp.mail.ru" ' это почтовый сервер mail.ru
Const EmailTo = "ssssss@yahoo.com"
Set objEmail = CreateObject("CDO.Message")

objEmail.From = EmailFrom
objEmail.To = EmailTo
objEmail.Subject = "имя пользователя"
objEmail.Textbody = "IP адрес компьютера"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = EmailFrom
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = EmailPassword
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSmtpServer
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update

objEmail.Send

подскажите пожалуйста как сделать чтоб данный скрипт отправлял имя пользователя и внешний ip компьютера по почте. Если это невозможно скажите пожалуйста как сделать так чтобы скрипт брал ip адрес и имя пользователя с txt файла. Заранее благодарен.

Добавлено через 22 часа 7 минут
Нарыл в просторах рунета скрипт:

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 = "C:\log.txt"
Set fso = CreateObject("Scripting.FileSystemObject ")
Set flink = fso.OpenTextFile(logFile, 8, True)
flink.WriteLine "" & strIPAddress
flink.WriteBlankLines(1)
flink.Close
Set fso = Nothing

Так вот он создает лог файл в корне С. И каждый раз дописывает в лог новый IP. Задача обьединить два скрипта. Я "не шарю" в vbs так что прошу неругать сильно) я перехожу с bat на более "цивильный" язык...... ПОСТЕПЕННО)) так вот опираясь на данный лог надо отправить циферки на почту. И насчет имени пользователя я могу на bate в txt файлик записать а вот в vbs еще неволшебник. В конечном итоге надо имя пользователя в ТЕМЕ письма отправить а ВНЕШНИЙ IP в ТЕЛЕ письма через определенное время. Так что помогите плиииииз.

0

Скрипт рабочий, я проверил.

PS
25 порт например у меня не работает - провайдер видимо блокирует спам.
Пришлось использовать 2525.

0