This is not pretty, but it does work. (just tried it)
**getip.prg
if file("ip.txt")
erase ip.txt
endif
run ipconfig >ip.txt
m_file=filetostr("ip.txt")
m_start = at("IP Address",m_file)+36
m_ip = substr(m_file,m_start,12)
erase ip.txt
Bob Lee
>>Do you want it programatically?
>
>Yes
In the beginning, there was a command prompt, and all was well.