The easiest way I know of is to use the MS Winsock control.

ows = createobject("MSWinsock.Winsock")
? ows.LocalIP

This is for local IP addresses only.

>How do you get the IP address of the local machine?
>
>>>>>IP Address is pretty much all you have access to without specific NT rights to that machine. You can do a lookup to get the machine name, but that doesn't do a troubleshooter much good. A port scanner will get you a little further regarding open holes to the internet, but anything beyond that would be hacking.
>>>>
>>>>If this runs on an Intranet not Internet, then you might be able to get around the access problems by accessing the remote PCs using a Domain Admin account. You would alos be behind any firewall so port availability wouldn't come into play either.