Tip: Узнаём внешний (External) IP адресс через скрипт
|
|
|
Суббота, 08 Апрель 2006 | (9375)
 Нашёл очень интересный скрипт (vbscript). Делает он (скрипт) очень простую вещь, проверяет IP адрес, котрый получил ваш компьютер от вашего интернет провайдера и так-же выдаёт вам DNS имя (Host Name), которое зарегестрированно на данном IP адресе. Делает он это следуещим образом:
Подключается на сайт showmyip.com, загружает xml, и затем обрабатывает его (XML) для того, что-бы извлечь значений внешний IP адрес вашего компьютераи DNS имя (Host Name), соответственно.
Содержимое скрипта:
'==========================================================================
'
' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 3.1
'
' NAME:
'
' AUTHOR: Todd Fields
' DATE : 7/12/2004
'
' COMMENT:
'
'==========================================================================
Option Explicit
On Error Resume Next
Const cstrShowMyIP = "http://www.showmyip.com/xml/"
Dim objRemXML
Dim objMyIP
Dim strIPAddress
Dim strHostname
Set objRemXML = CreateObject("Microsoft.XMLDOM")
objRemXML.async = False
objRemXML.load(cstrShowMyIP)
If Err.Number <> 0 Then
WScript.Echo "Error getting IP address from " & cstrShowMyIP
WScript.Quit
End If
' Get our IP address
Set objMyIP = objRemXML.selectSingleNode("/ip_address/ip")
If Err.Number <> 0 Then
WScript.Echo "Error getting IP address from XML data"
WScript.Quit
Else
strIPAddress = objMyIP.text
End If
' Get our hostname
Set objMyIP = objRemXML.selectSingleNode("/ip_address/host")
If Err.Number <> 0 Then
WScript.Echo "Error getting IP address from XML data"
WScript.Quit
Else
strHostname = objMyIP.text
End If
' Print info
WScript.Echo "IP address : " & strIPAddress
WScript.Echo "Hostname : " & strHostname
' Finish
Set objMyIP = Nothing
Set objRemXML = Nothing
|
Вы можете скчать этот скрипт в текстовом формате, только не забудьте переименовать файл, что бы у него было расширение VBS.
Скачать
|
Комментарии
2009-12-0910:22:41 привет всем кто есть в контакте пишите на ид 29134868
буду рад пообщатся с умными людьми по взлому ип адрессов.
2008-06-2409:06:01 автору +1
2008-03-2315:37:30 всем привет, занимаюсь vbs, пишите, буду рад поделиться своими способностями
2006-12-3101:40:39 >>Error getting IP address from XML data
wtf ???
в i-net я его пустил, www.showmyip.com - доступен.
2006-10-1500:18:34 Спасибо супер... ;)
2006-09-2415:17:53 otlicho, klassno rabotaet
"Простите за глупый вопрос, но чем скрипт открыть. ))" pereimenuy rasshirenie v VBS i prosto klikni po etomu fajlu
2006-07-0819:57:32 Простите за глупый вопрос, но чем скрипт открыть. ))
2006-06-2119:29:22 Супер! Работает! :)
2006-06-0615:18:46 Почему говорит, что слишком длинный комментарий, хотя оставалось еще 76 свободных символов? К сожалению не могу высказаться по теме. :(