ip адреса локального компа

[mkazakov]

Добрый ночи, есть зада узнать все ip адреса локального компьютера, а если быть точнее то всех сетевых интерфейсов.
посмотрел примеры от дельфи не особо помогли.

[wwswowsogon]

Посмотри здесь:

http://www.oivt.ru/blog/lazarus-program ... -ip-adresa

[debi12345]

Проще всего распарсить через пайп и зауникалить вывод сетевых утиллит:
вынь-32: route print -4 => предпоследний столбец (Интерфейс)
линь: ifconfig | grep "inet addr:" | awk '{print $2}' | awk -F ":" '{print $2}'

[mkazakov]

wwswowsogon Спасибо посмотрю, debi12345 Спасибо но эта программа должна быть под виндой.

[debi12345]

Спасибо но эта программа должна быть под виндой.

Код: Выделить всё

route print -4

или

Код: Выделить всё

ipconfig

[mkazakov]

vbs

Код: Выделить всё

Set wmi = GetObject("winmgmts:") 
Set routes = wmi.ExecQuery("select * from Win32_IP4RouteTable")
For Each r In routes  
   WScript.Echo r.name 
   Next