home *** CD-ROM | disk | FTP | other *** search
/ Chip: Windows 2000 Professional Resource Kit / W2KPRK.iso / scripts.cab / enumkeys.kix < prev    next >
Encoding:
Text File  |  1999-11-04  |  978 b   |  59 lines
  1. ;  EnumKeys.KIX
  2. ;
  3. ;  Enumerates a (registry) key and all its subkeys
  4. ;
  5. ;
  6. ;  Note :  This code sample is provided for demonstration purposes only.
  7. ;          Microsoft makes no warranty, either express or implied,
  8. ;          as to its usability in any given situation.
  9. ;
  10. BREAK ON
  11.  
  12. IF $Key = 0
  13.    $Key = "HKEY_CURRENT_USER\Printers"
  14. ENDIF
  15.  
  16.  
  17. ;
  18. ; first enumerate all subkeys of current key
  19. ;
  20. DIM $Index, $SaveKey
  21.  
  22. $Index = 0
  23. $SubKey = EnumKey( $Key , $Index )
  24.  
  25. WHILE @ERROR = 0
  26.  
  27.    $SaveKey = $Key
  28.  
  29.    $Key = $Key + "\" + $SubKey
  30.  
  31.    ? $Key
  32.  
  33.    CALL EnumKeys
  34.  
  35.    $Key = $SaveKey
  36.    IF @ERROR = 0
  37.  
  38.       ; try for next subkey
  39.  
  40.       $Index = $Index + 1
  41.       $SubKey = EnumKey( $Key , $Index )
  42.    ENDIF
  43.  
  44. LOOP
  45.  
  46. ;
  47. ; Lastly, enumerate all values of current key
  48. ;
  49. $Index = 0
  50. $Value = EnumValue( $Key , $Index )
  51.  
  52. WHILE @ERROR = 0
  53.    ? $Key + "|" + $Value
  54.    $Index = $Index + 1
  55.    $Value = EnumValue( $Key , $Index )
  56. LOOP
  57.  
  58. EXIT 0
  59.