perl -le" print `ipconfig` =~ m[IP Address.*: ([0-9\.]+)]m" works on Win32.

I think there is a similar command (ifconfig?) on *nix system, but the regex might need tweaking.