.386
.model flat,stdcall
option casemap:none

includelib C:\masm\lib\kernel32.lib
includelib C:\masm\lib\user32.lib
includelib C:\masm\lib\ws2_32.lib
include C:\masm\include\kernel32.inc
include C:\masm\include\ws2_32.inc
include C:\masm\include\user32.inc
include C:\masm\include\windows.inc
.data?
wsaData WSADATA <>
hn db 1024 dup(?)
.data
.code
start:
invoke WSAStartup,101h,ADDR wsaData
invoke gethostname,ADDR hn,1024
invoke gethostbyname,ADDR hn
mov eax, [eax+12]
mov eax, [eax]
mov eax, [eax]
invoke inet_ntoa,eax
invoke MessageBoxA,0,eax,eax,0
invoke ExitProcess,0
end start