; IPinfo
; ------
; Search the registry for configured IP address info
; Note var F used as a flag to indicate valid IP
; address found during the search
;
;report on
;step on
setvar F,0
setvar A,HKLM\System\CurrentControlSet\Services
findkey %A,B
iferror exit

:loop
getreg %A\\%B\Parameters\TcpIp\IPAddress,C
iferror donext
ifvar C,0.0.0.0,donext
setvar F,1
msgbox IPInfo,%C,0  

:donext
nextkey %A,B
ifnerror loop

:exit
ifvar F,1,exit
msgbox IPInfo,No IP addresses found,0  
:end