Что ты имеешь ввиду под словом програмно?

может ты имеешь в виду это:
win: cmd.exe netstat
А может ты имеешь в виду что-то связанное вот с этим:
http://linux.vitebsk.by/docs/man2/socket.2.html
там про сокеты. ман (даже на русском...)
уточни как и что ты хочешь получить...

jabber, я просто решил сначало как-нить матереализировать IP, и потом сам знаешь чё хочу делать :}

jabber, если знаешь, подскажи плизз как достать IP из входящих сокетов?

Acid, не нервничай  
сервак самый стандартный:
.data
ddPort      dd 21
wsadata WSADATA <>
sin sockaddr_in <>
WM_SOCKET equ WM_USER + 100
.data?
client  dd ?
sock  dd ?
.code
start:
invoke WSAStartup, 101h, addr wsadata
invoke socket, AF_INET, SOCK_STREAM, 0
mov sock, eax

invoke htons, ddPort
mov sin.sin_port, ax  
mov sin.sin_family, AF_INET  
mov sin.sin_addr, INADDR_ANY

invoke bind, sock, addr sin, sizeof sin
invoke listen, sock, SOMAXCONN

__AcceptConn:
       xor eax, eax
       invoke accept, sock, 0, 0
       mov client, eax
       
      invoke LocalAlloc,LMEM_FIXED,prsize
      mov buf,eax

ОС: XP

Acid
да не сервак . так программка для Win
биндит сокет и слушает определённый порт...
buggzy
getpeeraddr?
в смылсе getpeername?
так она вообще не нужна.
я ж говорю после вызова accept
IP будет в sin.sin_addr.

кажется jabber опередил :}

jabber, смотри, тогда
если продолжить вышенаписанный код,

invoke WSAStartup,101h, addr wsadata
invoke socket,AF_INET,SOCK_STREAM,0
mov socka,eax

invoke htons, ddPort
mov sin.sin_port, ax  
mov sin.sin_family, AF_INET

invoke inet_addr, addr sin
mov sin.sin_addr, eax
invoke connect, socka, addr sin, sizeof sin
cmp eax,-1
jz __EndConn
 
      invoke recv, client, buf, prsize, 0
      cmp eax,-1
     jz __EndConn
      mov dannie,eax
      
      invoke send, socka, addr buffer, dannie, 0
      cmp eax,-1
     jz __EndConn
почему не открывает ftp у клиента?