don't remember anymore but was it something like:
code:
$counter=0
do
 $key=enumkey("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces",$counter)
$ip=readvalue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"+$key,"IpAddress")
$counter=$counter+1
until $ip<>"0.0.0.0" or @error
$rc=writevalue("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\"+$key,"SubnetMask","255.0.0.0")
_________________________
!

download KiXnet