Зная имя хоста – узнать IP-адрес машины.

Public Declare Function WSAStartup Lib 'wsock32.dll' (ByVal wVR As Long, ByVal lpWSAD As WSADataType) As Long
Public Declare Function gethostbyaddr Lib 'wsock32.dll' (ByVal addr As Long, ByVal addr_len As Long, ByVal addr_type As Long) As Long
Public Declare Function GetHostByName Lib 'wsock32.dll' Alias 'gethostbyname' (ByVal host_name As String) As Long
Public Declare Function GetHostName Lib 'wsock32.dll' Alias 'gethostname' (ByVal host_name As String, ByVal namelen As Long) As Long
Public Declare Function getservbyport Lib 'wsock32.dll' (ByVal Port As Long, ByVal proto As String) As Long
Public Declare Function getservbyname Lib 'wsock32.dll' (ByVal serv_name As String, ByVal proto As String) As Long
Public Declare Function getprotobynumber Lib 'wsock32.dll' (ByVal proto As Long) As Long
Public Declare Function getprotobyname Lib 'wsock32.dll' (ByVal proto_name As String) As Long
Public Declare Function closesocket Lib 'wsock32.dll' (ByVal s As Long) As Long
Public Declare Function ioctlsocket Lib 'wsock32.dll' (ByVal s As Long, ByVal cmd As Long, ByVal argp As Long) As Long
Public Declare Function getsockopt Lib 'wsock32.dll' (ByVal s As Long, ByVal level As Long, ByVal optname As Long, ByVal optval As Any, ByVal optlen As Long) As Long
Public Declare Function htonl Lib 'wsock32.dll' (ByVal hostlong As Long) As Long
Public Declare Function htons Lib 'wsock32.dll' (ByVal hostshort As Long) As Integer
Public Declare Function inet_addr Lib 'wsock32.dll' (ByVal cp As String) As Long
Public Declare Function inet_ntoa Lib 'wsock32.dll' (ByVal inn As Long) As Long
Public Declare Function listen Lib 'wsock32.dll' (ByVal s As Long, ByVal backlog As Long) As Long
Public Declare Function ntohl Lib 'wsock32.dll' (ByVal netlong As Long) As Long
Public Declare Function ntohs Lib 'wsock32.dll' (ByVal netshort As Long) As Integer
Public Declare Function recv Lib 'wsock32.dll' (ByVal s As Long, ByVal Buf As Any, ByVal buflen As Long, ByVal flags As Long) As Long
Public Declare Function send Lib 'wsock32.dll' (ByVal s As Long, ByVal Buf As Any, ByVal buflen As Long, ByVal flags As Long) As Long
Public Declare Function setsockopt Lib 'wsock32.dll' (ByVal s As Long, ByVal level As Long, ByVal optname As Long, ByVal optval As Any, ByVal optlen As Long) As Long
Public Declare Function ShutDown Lib 'wsock32.dll' Alias 'shutdown' (ByVal s As Long, ByVal how As Long) As Long
Public Declare Function socket Lib 'wsock32.dll' (ByVal af As Long, ByVal s_type As Long, ByVal protocol As Long) As Long
Declare Sub CopyMemory Lib 'kernel32.dll' Alias 'RtlMoveMemory' (ByVal Dest As Any, ByVal Src As Any, ByVal cb&)
Declare Sub RtlMoveMemory Lib 'kernel32' (ByVal hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
Declare Function WSACleanUp Lib 'wsock32.dll' Alias 'WSACleanup' () As Integer