break on

$index = 0

$key = enumkey("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces", $index)

while $key

 ?"key=" $key

 $index = $index + 1

 $key = enumkey("HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces", $index)

loop

exit 0

  
;  EnumKeys.KIX
;
;  Enumerates a (registry) key and all its subkeys
;
;  Note :  This code sample is provided for demonstration purposes only.
;          Microsoft makes no warranty, either express or implied,
;          as to its usability in any given situation.
;
;   Copyright (C) 2001 Ruud van Velsen.
;   All rights reserved.
;
BREAK ON

IF $Key = 0
   $Key = "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces"
ENDIF


;
; first enumerate all subkeys of current key
;
DIM $Index, $SaveKey

$Index = 0
$SubKey = EnumKey( $Key , $Index )

WHILE @ERROR = 0

   $SaveKey = $Key

   $Key = $Key + "\" + $SubKey

   ? $Key

   CALL EnumKeys

   $Key = $SaveKey
   IF @ERROR = 0

      ; try for next subkey

      $Index = $Index + 1
      $SubKey = EnumKey( $Key , $Index )
   ENDIF

LOOP

;
; Lastly, enumerate all values of current key
;
$Index = 0
$Value = EnumValue( $Key , $Index )

WHILE @ERROR = 0
   ? $Key + "|" + $Value
   $Index = $Index + 1
   $Value = EnumValue( $Key , $Index )
LOOP

WriteValue( $Key , $Value "MTU", "1400", "REG_DWORD")
If @ERROR = 0
   ? "Value written to the registry"
Endif


EXIT 0

Break On
Dim $BaseKey, $Key, $Value
$BaseKey = 'HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces'
For each $Key in ArrayEnumKey($BaseKey)
  For each $Value in ArrayEnumValue($BaseKey+'\'+$Key)
   'Value ['+$Value+'] in Key ['+$Key+']' ?
  Next
Next  

Break On
Dim $BaseKey, $Key, $Value
$BaseKey = 'HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces'
For each $Key in ArrayEnumKey($BaseKey)
  If AScan(ArrayEnumValue($BaseKey+'\'+$Key),'MTU')<>-1
   'Value ['+ReadValue($BaseKey+'\'+$Key,'MTU')+'] in Key ['+$Key+']' ?
  EndIf
Next  

  

Break On
Dim $BaseKey, $Key, $Value
$BaseKey = 'HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces'
For each $Key in ArrayEnumKey($BaseKey)
  If AScan(ArrayEnumValue($BaseKey+'\'+$Key),'MTU')<>-1
   'Value ['+ReadValue($BaseKey+'\'+$Key,'MTU')+'] in Key ['+$Key+']' ?
  EndIf
Next  

WriteValue( $BaseKey , $Key , $Value "MTU", "1400", "REG_DWORD")
If @ERROR = 0
   ? "Value written to the registry"
Endif

;UDF Function ArrayEnumKey

function arrayenumkey($regsubkey)
    dim $retcode, $subkeycounter, $currentsubkey, $subkeyarray
    
    if not keyexist($regsubkey)
        $arrayenumkey=''
        return
    endif
    
    $subkeycounter=0
    do
        $currentsubkey=enumkey($regsubkey,$subkeycounter)
        if $currentsubkey<>259 and @ERROR=0
            redim preserve $subkeyarray[$subkeycounter]
            $subkeyarray[$subkeycounter]=$currentsubkey
            $subkeycounter=$subkeycounter+1
        endif
    until $currentsubkey=259 or @ERROR
    
    $arrayenumkey=$subkeyarray
endfunction

;UDF Function ArrayEnumValue

function arrayenumvalue($regsubkey)
    dim $retcode, $valuecounter, $currentvalue, $valuearray
    
    if not keyexist($regsubkey)
        $arrayenumvalue=''
        return
    endif
    
    $valuecounter=0
    do
        $currentvalue=enumvalue($regsubkey,$valuecounter)
        if $currentvalue<>259 and @ERROR=0
            redim preserve $valuearray[$valuecounter]
            $valuearray[$valuecounter]=$currentvalue
            $valuecounter=$valuecounter+1
        endif
    until $currentvalue=259 or @ERROR
    
    $arrayenumvalue=$valuearray
endfunction