Keys Class, Collection of registry keys objects

Description

Collection of key objects of one registry key.

Object model

Keys - Collection of key objects of one registry key. (Keys property, Subkeys of the Key specified by Connect method (or by hKey property).)

Keys - Collection of key objects of one registry key. (SubKeys property, Subkeys of the key.)

Key - One registry key. (Item property, Returns a single Key object from the Keys collection.)

Methods

Add

Creates the specified key. If the key already exists in the registry, the method opens it.

Properties

Count	Number of keys in the collection.
Long, RW
Item	Returns a single Key object from the Keys collection.
Key, RW

Examples

List of OLEDB providers on local or remote computer

This script lets you list all installed OLEDB providers (oledb drivers) on local or remote computer from windows scripting host/VBScript. The script can be simly modified for ASP or ASP.Net.

  'The script writes all installed OLEDB providers.
  Option Explicit

  Dim OutText, S, Key

  'Create a server object
  Set S = CreateObject("RegEdit.Server")

  'Optionally connect to another computer
'  S.Connect "muj"

  OutText = OutText & "OLEDB providers installed on " & _
    s.Name & ":" & vbCrLf
  OutText = OutText & "************************************" & vbCrLf

  For Each Key In S.GetKey("HKCR\CLSID").SubKeys
    If Key.ExistsValue("OLEDB_SERVICES") Then
      OutText = OutText & Key.Values("").Value &  vbtab & _
        " : " &   Key.SubKeys("OLE DB Provider").Values("") & vbCrLf
    End If
  Next

  Wscript.Echo OutText

List of installed software

'The script writes all installed software on the computer.

Wscript.Echo "Software installed on this machine :"
Wscript.Echo "************************************"

  Set S = CreateObject("RegEdit.Server")
  For Each Key In S.Keys("SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall").SubKeys
      If Key.ExistsValue("DisplayName") Then 
        Wscript.Echo Key.Values("DisplayName").Value 
      Else 
        Wscript.Echo "(" & Key.Name & ")"
      End If
  Next

Used in

Key.SubKeys, Server.Keys