Скрипт для определения внешнего IP адреса

Скрипт возвращает IP адрес маршрутизатора и пытается определить через rDNS имя хоста.

Для использования создайте файл ip_routed.vbs с приведенным ниже скриптом.


Call EnumPublicIP()

Sub EnumPublicIP()
const URL = «http://www.showmyip.com/xml»
set xmldoc = CreateObject(«Microsoft.XMLDOM»)
xmldoc.async=false
xmldoc.load(URL)

for each x in xmldoc.documentElement.childNodes
if x.NodeName = «ip» then
myip = x.text
end if
if x.NodeName = «host» then
myhost = x.text
end if
if x.NodeName = «timestamp_gmt» then
mytime = x.text
end if
next

myinfo = myip & vbCRLF & myhost & vbCRLF & mytime

wscript.echo «IPAddress/rDNS:» & vbcrlf & myinfo
End Sub

Скачать скрипт ip_routed.zip

Рекомендую также следующие статьи:
  • Скрипт для определения производителя оборудования по MAC-адресу
  • Скрипт для получения атрибутов S.M.A.R.T. жесткого диска
  • Скрипт для удаления файлов старше N дней
  • Скрипт для отправки сообщения по электронной почте
  • Скрипт для удаленной перезагрузки компьютера с отслеживанием хода ее выполнения
    • Пожалуйста, оцените статью:
    (всего оценок: 10, средняя: 4,00 из 5)