using the winsock control:
Code:
dim ip as string

ip = winsock1.localip
debug.print ip
this should work.

[late post .... DOH!!!!]