What about
Code:

Dim $NIC, $IPAddress
$NIC = 0
While EnumIPInfo($NIC,0,0)
	$IPAddress = EnumIPInfo($NIC,0,0)
	? $IPAddress
	$NIC = $NIC + 1
Loop

FYI: EnumIPInfo does not work for p.e. Windows NT4...