ExistsValue Method, Key class

Description

Test of existence of key's value.

Syntax

vExistsValue = Key.ExistsValue (Name as String)

Where	Type	Optional	Default	Description
Name	String			Name of the value.

Returns

Boolean

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